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

%I #14 Jun 15 2018 08:11:12

%S 0,1,2,5,10,19,35,66,124,235,446,848,1616,3088,5915,11356,21844,42094,

%T 81249,157062,304039,589307,1143583,2221620,4320301,8409506,16383693,

%U 31945779,62338040,121733596,237884882,465163198,910144583

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

%H Harry J. Smith, <a href="/A065613/b065613.txt">Table of n, a(n) for n = 1..200</a>

%t Table[Floor[(Log[n]2^n)/n],{n,40}] (* _Harvey P. Dale_, Feb 07 2015 *)

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

%Y Cf. A065614, A065615.

%K nonn

%O 1,3

%A _N. J. A. Sloane_, Dec 03 2001

%E Offset changed from 0 to 1 by _Harry J. Smith_, Oct 24 2009