A165710 Partial sums of A046882.
1, 2, 6, 46662, 1333735776850284124449081472890438
Offset: 0
Keywords
Programs
-
Mathematica
Accumulate[Table[(n!)^n!,{n,0,5}]] (* Harvey P. Dale, Apr 01 2011 *)
Formula
a(n) = Sum_{k=0..n} (k!)^(k!) = 1 + A165711(n).
Extensions
Definition simplified by R. J. Mathar, Sep 25 2009