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,2

Links

Seiichi Manyama, Table of n, a(n) for n = 0..181

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 *)

Prog

(PARI) a(n) = sum(k=0, n, k!^3); \\ Michel Marcus, Jul 16 2017

Crossrefs

Cf. A003422(n+1) (k!), A061062 (k!^2), this sequence (k!^3), A289949 (k!^4).

Sequence in context: A293148 A193482 A346222 * A282567 A360945 A308756

Adjacent sequences: A289945 A289946 A289947 * A289949 A289950 A289951

Keyword

nonn

Author

Seiichi Manyama, Jul 16 2017

Status

approved