A152841 a(0)=1; a(n)=Floor[n^(n+a(n-1))-a(n-1)^(n+a(n-1))].
1, 0, -4, -1, -115, -1
Offset: 0
Keywords
Programs
-
Mathematica
lst={};a=1;Do[a=a^(n+a)-n^(n+a);AppendTo[lst,Floor[a]],{n,0,5}];lst
Extensions
Indices added to definition, offset corrected - R. J. Mathar, Jan 08 2009