login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A181383 The (2^n)-th lucky number. 0
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

Table of n, a(n) for n=0..31.

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

Cf. 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 21 14:18 EST 2019. Contains 329371 sequences. (Running on oeis4.)