login
The (10^n)-th lucky number.
1

%I #10 Dec 21 2018 14:39:51

%S 1,33,613,8809,115591,1429431,16990171,196502733,2228124073,

%T 24887020821

%N The (10^n)-th lucky number.

%t 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}]

%o (Perl) use ntheory ":all"; say "$_ ",nth_lucky(10**$_) for 0..8; # _Dana Jacobsen_, Dec 21 2018

%Y Cf. A000959.

%K hard,nonn

%O 0,2

%A _Robert G. Wilson v_, Oct 16 2010

%E a(7) from _Donovan Johnson_, Oct 16 2010

%E a(8)-a(9) from _Dana Jacobsen_, Dec 21 2018