A065617 a(n) = round(log_2(n)*2^n/n).

0, 2, 4, 8, 15, 28, 51, 96, 180, 340, 644, 1224, 2332, 4456, 8535, 16384, 31515, 60729, 117218, 226594, 438636, 850191, 1649843, 3205121, 6232878, 12132353, 23636674, 46088018, 89934782, 175624455, 343195341, 671088640, 1313061077

Offset

1,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A065616, A065618.

Sequence in context: A029907 A005682 A114833 * A062065 A008936 A320452

Adjacent sequences: A065614 A065615 A065616 * A065618 A065619 A065620

Keyword

nonn

Author

N. J. A. Sloane, Dec 03 2001

Status

approved