A145328 Partial sums of A007925, starting at n=1.

-1, -2, 15, 414, 8263, 170550, 3838199, 95009206, 2581793607, 76644369006, 2472064375039, 86167184631630, 3229828797076775, 129604998329498374, 5545091849435542023, 252031805153121499398, 12129204697482149958439

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Oct 08 2008

Keywords

• sign

Programs

Mathematica

lst={};s=0;Do[s+=n^(n+1)-(n+1)^n;AppendTo[lst,s],{n,5!}];lst
Accumulate[Table[n^(n+1)-(n+1)^n,{n,20}]] (* Harvey P. Dale, Aug 26 2012 *)

Extensions

Edited by N. J. A. Sloane, Oct 09 2008