login
A065615
a(n) = ceiling(log(n)*2^n/n).
3
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
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 03 2001
STATUS
approved