A145329 Partial sums of A051442, starting at n=1.
3, 20, 165, 1814, 25215, 422800, 8284753, 185549202, 4672333603, 130609758204, 4012046505613, 134303337007166, 4865394495960599, 189626416079163448, 7910956276398901049, 351720053331418595386, 16600716065137840118363
Offset: 1
Keywords
Programs
-
Mathematica
lst={};s=0;Do[s+=n^(n+1)+(n+1)^n;AppendTo[lst,s],{n,4!}];lst Accumulate[Table[n^(n+1)+(n+1)^n,{n,20}]] (* Harvey P. Dale, Oct 02 2018 *)
Formula
s+=n^(n+1)+(n+1)^n.
Extensions
Edited by N. J. A. Sloane, Oct 09 2008