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

-1, 2, 0, 1, 3, -118, -2699554153024, 1044826807337428519663920677057429215016680080584103502827667086054551857192770337767423

Offset: 0

Author

Vladimir Joseph Stephan Orlovsky, Dec 14 2008

Keywords

• sign

Examples

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

Crossrefs

Cf. A084964, A152832, A152833, A152835, A152836

Programs

Mathematica

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

Extensions

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