A065615 a(n) = ceiling(log(n)*2^n/n).

0, 2, 3, 6, 11, 20, 36, 67, 125, 236, 447, 849, 1617, 3089, 5916, 11357, 21845, 42095, 81250, 157063, 304040, 589308, 1143584, 2221621, 4320302, 8409507, 16383694, 31945780, 62338041, 121733597, 237884883, 465163199, 910144584

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..200

Mathematica

Table[Ceiling[Log[n] 2^n/n], {n, 40}] (* Harvey P. Dale, May 27 2021 *)

Prog

(PARI) { default(realprecision, 100); for (n=1, 200, write("b065615.txt", n, " ", ceil( log(n)*2^n/n )) ) } \\ Harry J. Smith, Oct 24 2009

Crossrefs

Sequence in context: A018172 A018076 A010033 * A054182 A358709 A346736

Adjacent sequences: A065612 A065613 A065614 * A065616 A065617 A065618

Keyword

nonn

Author

N. J. A. Sloane, Dec 03 2001

Status

approved