A065616 a(n) = floor(log_2(n)*2^n/n).

0, 2, 4, 8, 14, 27, 51, 96, 180, 340, 644, 1223, 2331, 4455, 8534, 16384, 31514, 60728, 117217, 226593, 438636, 850191, 1649842, 3205121, 6232878, 12132352, 23636673, 46088018, 89934782, 175624455, 343195340, 671088640, 1313061077, 2570645473

Offset

1,2

Links

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

Mathematica

Table[Floor[Log[2, n] 2^n/n], {n, 40}] (* Harvey P. Dale, Mar 12 2018 *)

Prog

(PARI) { default(realprecision, 100); t=1/log(2); for (n=1, 200, write("b065616.txt", n, " ", floor( t*log(n)*2^n/n + 0.0000001)) ) } \\ Harry J. Smith, Oct 24 2009
(Maxima)  makelist(floor(log(n)/log(2)*2^n/n), n, 1, 50); /* Martin Ettl, Oct 17 2012 */

Crossrefs

Cf. A065617, A065618.

Sequence in context: A048140 A179817 A214255 * A164147 A321402 A210669

Adjacent sequences: A065613 A065614 A065615 * A065617 A065618 A065619

Keyword

nonn

Author

N. J. A. Sloane, Dec 03 2001

Extensions

a(8) corrected, a(34) added by Harry J. Smith, Oct 24 2009

Status

approved