|
|
A181382
|
|
The (10^n)-th lucky number.
|
|
1
|
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
t = 2 Range@8500000 - 1; f[n_] := Block[{k = t[[n]]}, t = Delete[t, Table[{k}, {k, k, Length@t, k}]]]; Do[f@n, {n, 2, 100000}]; Table[ t[[10^n]], {n, 0, 6}]
|
|
PROG
|
(Perl) use ntheory ":all"; say "$_ ", nth_lucky(10**$_) for 0..8; # Dana Jacobsen, Dec 21 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|