A065614 a(n) = round(log(n)*2^n/n).

0, 1, 3, 6, 10, 19, 36, 67, 125, 236, 446, 848, 1616, 3088, 5916, 11357, 21844, 42094, 81249, 157063, 304039, 589308, 1143584, 2221621, 4320302, 8409506, 16383694, 31945780, 62338041, 121733596, 237884883, 465163199, 910144583

Offset

1,3

Links

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

Mathematica

Array[Round[Log[#]*2^#/#] &, 33] (* Michael De Vlieger, Jun 14 2018 *)

Prog

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

Crossrefs

Cf. A065613, A065615.

Sequence in context: A253768 A091714 A017991 * A183324 A058356 A270048

Adjacent sequences: A065611 A065612 A065613 * A065615 A065616 A065617

Keyword

nonn

Author

N. J. A. Sloane, Dec 03 2001

Status

approved