A289949 a(n) = Sum_{k=0..n} k!^4.

1, 2, 18, 1314, 333090, 207693090, 268946253090, 645510228813090, 2643553803594573090, 17342764866576345933090, 173418555892594089945933090, 2538940579958951120707545933090, 52646414799433780559063261145933090, 1503614384819523432725006336630745933090

Offset

0,2

Links

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

Formula

a(n) = A289945(n) + 1 for n > 0.

Mathematica

Accumulate[(Range[0, 15]!)^4] (* Harvey P. Dale, Nov 29 2020 *)

Prog

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

Crossrefs

Cf. A289945.

Sum_{k=0..n} k!^m: A003422(n+1) (m=1), A061062 (m=2), A289948 (m=3), this sequence (m=4).

Sequence in context: A139111 A090766 A069651 * A123558 A278170 A155206

Adjacent sequences: A289946 A289947 A289948 * A289950 A289951 A289952

Keyword

nonn

Author

Seiichi Manyama, Jul 16 2017

Status

approved