OFFSET
1,2
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 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 08 2008
EXTENSIONS
Edited by N. J. A. Sloane, Oct 09 2008
STATUS
approved