A181383 The (2^n)-th lucky number.

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

Offset

0,2

Links

Dana Jacobsen, Table of n, a(n) for n = 0..43

Formula

a(n) = A000959(2^n) = A000959(A000079(n)).

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

(Perl) use ntheory ":all"; say "$_ ", nth_lucky(1 << $_) for 0..25; # Dana Jacobsen, Dec 21 2018

Crossrefs

Cf. A000079, A000959, A181382.

Sequence in context: A006809 A081663 A245748 * A106514 A325915 A268451

Adjacent sequences: A181380 A181381 A181382 * A181384 A181385 A181386

Keyword

hard,nonn

Author

Robert G. Wilson v, Oct 16 2010

Extensions

a(21)-a(25) from Donovan Johnson, Oct 16 2010

a(26)-a(31) from Dana Jacobsen, Dec 21 2018

Status

approved