%I #10 Jan 03 2016 15:19:42
%S 0,6,23,76,239,723,2134,6199,17805,50718,143572,404431,1134768,
%T 3173742,8852664,24637530,68436135,189781721,525530245,1453425034,
%U 4015164095,11081117799,30554774842,84183856048,231774829750,637705962869
%N a(n) = ceiling(log(n)*exp(n)).
%H Harry J. Smith, <a href="/A058751/b058751.txt">Table of n, a(n) for n = 1..200</a>
%t Table[Ceiling[Log[n]Exp[n]],{n,30}] (* _Harvey P. Dale_, Aug 23 2013 *)
%o (PARI) { default(realprecision, 1000); for (n=1, 200, write("b058751.txt", n, " ", ceil(log(n)*exp(n))); ); } \\ _Harry J. Smith_, Jun 23 2009
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Jan 01 2001