login
A152840
a(0)=1; a(n)=n^(n+a(n-1))-a(n-1)^(n+a(n-1)).
1
-1, 0, 4, -14197
OFFSET
0,3
MATHEMATICA
lst={}; a=1; Do[a=n^(n+a)-a^(n+a); AppendTo[lst, a], {n, 0, 3}]; lst
KEYWORD
sign
AUTHOR
EXTENSIONS
Indices added to definition, offset corrected - R. J. Mathar, Jan 08 2009
STATUS
approved