|
%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
|
