A152836 a(0)=-1; a(n)=n^a(n-1)-a(n-1)^n.
-1, 2, 0, 1, 3, -118
Offset: 0
Programs
-
Mathematica
lst={};a=1;Do[a=n^a-a^n;AppendTo[lst,a],{n,0,5}];lst nxt[{n_,a_}]:={n+1,(n+1)^a-a^(n+1)}; NestList[nxt,{0,-1},5][[All,2]] (* Harvey P. Dale, Jun 06 2022 *)
Extensions
Definition corrected by N. J. A. Sloane, Jan 11 2009
Offset corrected. R. J. Mathar, Jun 19 2021
Comments