login
A058752
a(n) = round(log(n)*exp(n)).
1
0, 5, 22, 76, 239, 723, 2134, 6199, 17804, 50718, 143572, 404430, 1134768, 3173742, 8852663, 24637530, 68436134, 189781720, 525530244, 1453425034, 4015164095, 11081117799, 30554774841, 84183856047, 231774829749, 637705962868
OFFSET
1,2
LINKS
MATHEMATICA
Table[Round[Log[n]Exp[n]], {n, 40}] (* Harvey P. Dale, May 02 2019 *)
PROG
(PARI) a(n)=round(log(n)*exp(n)) \\ Hauke Worpel (thebigh(AT)outgun.com), Jun 10 2008
(PARI) { default(realprecision, 1000); for (n=1, 200, write("b058752.txt", n, " ", round(log(n)*exp(n))); ); } \\ Harry J. Smith, Jun 23 2009
CROSSREFS
Sequence in context: A220733 A338707 A058750 * A234351 A255802 A266358
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 01 2001
STATUS
approved