A065613 a(n) = floor(log(n)*2^n/n).

0, 1, 2, 5, 10, 19, 35, 66, 124, 235, 446, 848, 1616, 3088, 5915, 11356, 21844, 42094, 81249, 157062, 304039, 589307, 1143583, 2221620, 4320301, 8409506, 16383693, 31945779, 62338040, 121733596, 237884882, 465163198, 910144583

Offset

1,3

Links

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

Mathematica

Table[Floor[(Log[n]2^n)/n], {n, 40}] (* Harvey P. Dale, Feb 07 2015 *)

Prog

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

Crossrefs

Cf. A065614, A065615.

Sequence in context: A304792 A104161 A288579 * A249557 A061705 A052944

Adjacent sequences: A065610 A065611 A065612 * A065614 A065615 A065616

Keyword

nonn

Author

N. J. A. Sloane, Dec 03 2001

Extensions

Offset changed from 0 to 1 by Harry J. Smith, Oct 24 2009

Status

approved