|
|
A160814
|
|
a(1) = 1; a(n+1) = a(n)^n + n^a(n).
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Next term is too large to display: 2.3459495195697547514*10^4258
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|