A160814 a(1) = 1; a(n+1) = a(n)^n + n^a(n).
1, 2, 8, 7073
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a=1;lst={};Do[a=a^n+n^a;AppendTo[lst,IntegerPart[a]],{n,0,4}];lst nxt[{n_, a_}] := {n + 1, a^n + n^a}; NestList[nxt, {1, 1}, 4][[All, 2]] (* Harvey P. Dale, Jul 18 2021 *)
Extensions
Edited by N. J. A. Sloane, May 29 2009
Comments