|
%I #6 Jul 18 2021 12:38:25
%S 1,2,8,7073
%N a(1) = 1; a(n+1) = a(n)^n + n^a(n).
%C Next term is too large to display: 2.3459495195697547514*10^4258
%C The next term (a(5)) has 4259 digits. - _Harvey P. Dale_, Jul 18 2021
%t a=1;lst={};Do[a=a^n+n^a;AppendTo[lst,IntegerPart[a]],{n,0,4}];lst
%t nxt[{n_, a_}] := {n + 1, a^n + n^a}; NestList[nxt, {1, 1}, 4][[All, 2]] (* _Harvey P. Dale_, Jul 18 2021 *)
%Y Cf. A093898, A055652, A076980. - _R. J. Mathar_, May 29 2009
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, May 26 2009
%E Edited by _N. J. A. Sloane_, May 29 2009
|
