|
%I #20 Nov 30 2017 16:42:44
%S 1,2,10,226,14050,1742050,374990050,128399054050,65676719822050,
%T 47850402559694050,47832576242431694050,63649302669112063694050,
%U 109966989623147836159694050,241567605673714904675071694050,662801328154821495670649599694050,2236801993181528581580834681599694050
%N a(n) = Sum_{k=0..n} k!^3.
%H Seiichi Manyama, <a href="/A289948/b289948.txt">Table of n, a(n) for n = 0..181</a>
%t With[{nn = 16}, Table[Total@ Take[#, n], {n, nn}] &@ Table[k!^3, {k, 0, nn}]] (* _Michael De Vlieger_, Jul 16 2017 *)
%t Accumulate[(Range[0,20]!)^3] (* _Harvey P. Dale_, Nov 30 2017 *)
%o (PARI) a(n) = sum(k=0, n, k!^3); \\ _Michel Marcus_, Jul 16 2017
%Y Cf. A003422(n+1) (k!), A061062 (k!^2), this sequence (k!^3), A289949 (k!^4).
%K nonn
%O 0,2
%A _Seiichi Manyama_, Jul 16 2017
|
