A058738 a(n) = floor(n*exp(n)).

0, 2, 14, 60, 218, 742, 2420, 7676, 23847, 72927, 220264, 658615, 1953057, 5751374, 16836459, 49035260, 142177768, 410634196, 1181879444, 3391163718, 9703303908, 27695130424, 78868082614, 224130479263, 635738931116, 1800122483434

Offset

0,2

Links

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

Mathematica

lst={}; Do[AppendTo[lst, IntegerPart[n*E^n]], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 18 2008 *)
Table[Floor[n Exp[n]], {n, 0, 30}] (* Bruno Berselli, Jan 10 2015 *)

Prog

(PARI) { default(realprecision, 1000); for (n=0, 200, write("b058738.txt", n, " ", floor(n*exp(n))); ); } \\ Harry J. Smith, Jun 23 2009

Crossrefs

Sequence in context: A285153 A232370 A174704 * A095376 A153332 A331822

Adjacent sequences: A058735 A058736 A058737 * A058739 A058740 A058741

Keyword

nonn

Author

N. J. A. Sloane, Jan 01 2001

Status

approved