|
%I #16 Nov 19 2021 04:53:04
%S 1,2,6,46662,1333735776850284124449081472890438
%N Partial sums of A046882.
%F a(n) = Sum_{k=0..n) (k!)^(k!) = 1 + A165711(n).
%t s=0;lst={};Do[AppendTo[lst,s+=n!^n! ],{n,0,6,1}];lst
%t Accumulate[Table[(n!)^n!,{n,0,5}]] (* _Harvey P. Dale_, Apr 01 2011 *)
%Y Cf. A046882, A165711.
%K nonn
%O 0,2
%A _Vladimir Joseph Stephan Orlovsky_, Sep 24 2009
%E Definition simplified by _R. J. Mathar_, Sep 25 2009
|
