A152838 a(0)=1; a(n)=Floor[a(n-1)^n-n^a(n-1)].

1, 0, -1, -2, 3, 118, -199068134034785153195409370979964879499768447341765846329146257207125965412281784631240438088

Offset: 0

Author

Vladimir Joseph Stephan Orlovsky, Dec 14 2008

Keywords

• sign

Examples

			a(1) = 1^1-1^1 = 0. - R. J. Mathar, Jan 08 2009
		

Crossrefs

Cf. A084964, A152832, A152833, A152835, A152836, A152837

Programs

Mathematica

lst={};a=1;Do[a=a^n-n^a;AppendTo[lst,Floor[a]],{n,0,6}];lst

Extensions

Indices added to definition, offset corrected - R. J. Mathar, Jan 08 2009