A289948 a(n) = Sum_{k=0..n} k!^3.
1, 2, 10, 226, 14050, 1742050, 374990050, 128399054050, 65676719822050, 47850402559694050, 47832576242431694050, 63649302669112063694050, 109966989623147836159694050, 241567605673714904675071694050, 662801328154821495670649599694050, 2236801993181528581580834681599694050
Offset: 0
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..181
Programs
-
Mathematica
With[{nn = 16}, Table[Total@ Take[#, n], {n, nn}] &@ Table[k!^3, {k, 0, nn}]] (* Michael De Vlieger, Jul 16 2017 *) Accumulate[(Range[0,20]!)^3] (* Harvey P. Dale, Nov 30 2017 *)
-
PARI
a(n) = sum(k=0, n, k!^3); \\ Michel Marcus, Jul 16 2017