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

Author

Vladimir Joseph Stephan Orlovsky, Dec 14 2008

Keywords

• sign

Crossrefs

Cf. A084964, A152832, A152833, A152835, A152836, A152837, A152838, A152839, A152840

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