A165711 a(n) = Sum_{k=1..n} k!^k!.
1, 5, 46661, 1333735776850284124449081472890437
Offset: 1
Keywords
Crossrefs
Cf. A165710.
Programs
-
Mathematica
s=0;lst={};Do[AppendTo[lst,s+=n!^n! ],{n,1,6,1}];lst Accumulate[Table[(k!)^k!,{k,5}]] (* Harvey P. Dale, Dec 19 2014 *)
-
PARI
a(n)=sum(k=1,n,k!^k!) \\ Charles R Greathouse IV, Oct 12 2009
Comments