A058750 a(n) = floor(log(n)*exp(n)).

0, 5, 22, 75, 238, 722, 2133, 6198, 17804, 50717, 143571, 404430, 1134767, 3173741, 8852663, 24637529, 68436134, 189781720, 525530244, 1453425033, 4015164094, 11081117798, 30554774841, 84183856047, 231774829749, 637705962868

Offset

1,2

Links

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

Mathematica

Table[Floor[Log[n]Exp[n]], {n, 30}] (* Harvey P. Dale, Sep 20 2020 *)

Prog

(PARI) default(realprecision, 1000); for (n=1, 200, write("b058750.txt", n, " ", floor(log(n)*exp(n)))); \\ Harry J. Smith, Jun 23 2009

Crossrefs

Sequence in context: A241694 A220733 A338707 * A058752 A234351 A255802

Adjacent sequences: A058747 A058748 A058749 * A058751 A058752 A058753

Keyword

nonn

Author

N. J. A. Sloane, Jan 01 2001

Status

approved