%I #4 Mar 31 2012 12:38:17

%S -1,2,0,1,3,-118,-2699554153024,

%T 1044826807337428519663920677057429215016680080584103502827667086054551857192770337767423

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

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

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

%Y Cf. A084964, A152832, A152833, A152835, A152836

%K sign

%O 0,2

%A _Vladimir Joseph Stephan Orlovsky_, Dec 14 2008

%E Indices added to definition, offset corrected - _R. J. Mathar_, Jan 08 2009