|
%I #15 Jan 03 2016 15:16:41
%S 0,2,14,60,218,742,2420,7676,23847,72927,220264,658615,1953057,
%T 5751374,16836459,49035260,142177768,410634196,1181879444,3391163718,
%U 9703303908,27695130424,78868082614,224130479263,635738931116,1800122483434
%N a(n) = floor(n*exp(n)).
%H Harry J. Smith, <a href="/A058738/b058738.txt">Table of n, a(n) for n = 0..200</a>
%t lst={};Do[AppendTo[lst, IntegerPart[n*E^n]], {n, 0, 5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 18 2008 *)
%t Table[Floor[n Exp[n]], {n, 0, 30}] (* _Bruno Berselli_, Jan 10 2015 *)
%o (PARI) { default(realprecision, 1000); for (n=0, 200, write("b058738.txt", n, " ", floor(n*exp(n))); ); } \\ _Harry J. Smith_, Jun 23 2009
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jan 01 2001
|
