|
|
A181383
|
|
The (2^n)-th lucky number.
|
|
1
|
|
|
1, 3, 9, 25, 67, 151, 349, 805, 1831, 4069, 9063, 19767, 42975, 92829, 199123, 425229, 904225, 1915381, 4044235, 8513505, 17872759, 37432615, 78225409, 163146639, 339638307, 705882493, 1464816541, 3035420871, 6281814787, 12984437515, 26808298093, 55291335127
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
t = 2 Range@9000000 - 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[[2^n]], {n, 0, 20}]
|
|
PROG
|
use ntheory ":all"; say "$_ ", nth_lucky(1 << $_) for 0..25; # Dana Jacobsen, Dec 21 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|