%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