%I #14 Jun 15 2018 08:10:47
%S 0,1,3,6,10,19,36,67,125,236,446,848,1616,3088,5916,11357,21844,42094,
%T 81249,157063,304039,589308,1143584,2221621,4320302,8409506,16383694,
%U 31945780,62338041,121733596,237884883,465163199,910144583
%N a(n) = round(log(n)*2^n/n).
%H Harry J. Smith, <a href="/A065614/b065614.txt">Table of n, a(n) for n = 1..200</a>
%t Array[Round[Log[#]*2^#/#] &, 33] (* _Michael De Vlieger_, Jun 14 2018 *)
%o (PARI) { default(realprecision, 100); for (n=1, 200, write("b065614.txt", n, " ", round( log(n)*2^n/n )) ) } \\ _Harry J. Smith_, Oct 24 2009
%Y Cf. A065613, A065615.
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Dec 03 2001