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

%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