A058752 a(n) = round(log(n)*exp(n)).

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

Harry J. Smith, Table of n, a(n) for n = 1..200

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

Adjacent sequences: A058749 A058750 A058751 * A058753 A058754 A058755

Keyword

nonn

Author

N. J. A. Sloane, Jan 01 2001

Status

approved