|
%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
|
