|
%I #14 Sep 08 2022 08:45:02
%S 0,3,15,60,218,742,2421,7676,23848,72928,220265,658616,1953057,
%T 5751374,16836460,49035261,142177768,410634197,1181879444,3391163718,
%U 9703303908,27695130424,78868082615,224130479264,635738931116,1800122483435
%N a(n) = round(n*exp(n)).
%H Harry J. Smith, <a href="/A058748/b058748.txt">Table of n, a(n) for n = 0..200</a>
%t Table[Round[n Exp[n]], {n, 0, 30}] (* _Harvey P. Dale_, May 11 2019 *)
%o (PARI) { default(realprecision, 1000); for (n=0, 200, write("b058748.txt", n, " ", round(n*exp(n))); ); } \\ _Harry J. Smith_, Jun 23 2009
%o (Magma) [Round(n*Exp(n)): n in [0..30]]; // _Vincenzo Librandi_, May 14 2019
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jan 01 2001
|
