|
%I #11 May 27 2021 18:32:16
%S 0,2,3,6,11,20,36,67,125,236,447,849,1617,3089,5916,11357,21845,42095,
%T 81250,157063,304040,589308,1143584,2221621,4320302,8409507,16383694,
%U 31945780,62338041,121733597,237884883,465163199,910144584
%N a(n) = ceiling(log(n)*2^n/n).
%H Harry J. Smith, <a href="/A065615/b065615.txt">Table of n, a(n) for n = 1..200</a>
%t Table[Ceiling[Log[n] 2^n/n],{n,40}] (* _Harvey P. Dale_, May 27 2021 *)
%o (PARI) { default(realprecision, 100); for (n=1, 200, write("b065615.txt", n, " ", ceil( log(n)*2^n/n )) ) } \\ _Harry J. Smith_, Oct 24 2009
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Dec 03 2001
|
