OFFSET
1,2
COMMENTS
Next term is too large to display: 2.3459495195697547514*10^4258
The next term (a(5)) has 4259 digits. - Harvey P. Dale, Jul 18 2021
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 26 2009
EXTENSIONS
Edited by N. J. A. Sloane, May 29 2009
STATUS
approved