login
A058751
a(n) = ceiling(log(n)*exp(n)).
1
0, 6, 23, 76, 239, 723, 2134, 6199, 17805, 50718, 143572, 404431, 1134768, 3173742, 8852664, 24637530, 68436135, 189781721, 525530245, 1453425034, 4015164095, 11081117799, 30554774842, 84183856048, 231774829750, 637705962869
OFFSET
1,2
LINKS
MATHEMATICA
Table[Ceiling[Log[n]Exp[n]], {n, 30}] (* Harvey P. Dale, Aug 23 2013 *)
PROG
(PARI) { default(realprecision, 1000); for (n=1, 200, write("b058751.txt", n, " ", ceil(log(n)*exp(n))); ); } \\ Harry J. Smith, Jun 23 2009
CROSSREFS
Sequence in context: A374856 A054459 A060188 * A034359 A220148 A114245
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 01 2001
STATUS
approved