A218122 a(0)=1, a(1)=1, a(2)=1; thereafter a(n)=a(n-2)^a(n-1)+a(n-3).

1, 1, 1, 2, 2, 5, 34, 582076609134674072265627

Offset

0,4

Comments

a(8) has approximately 2.1*10^18 digits.

Links

Table of n, a(n) for n=0..7.

Mathematica

nxt[{a_, b_, c_}]:={b, c, b^c+a}; NestList[nxt, {1, 1, 1}, 7][[All, 1]]//Quiet (* Harvey P. Dale, Mar 13 2019 *)

Prog

(Maxima)
a[0]:1$
a[1]:1$
a[2]:1$
a[n]:=a[n-2]^a[n-1]+a[n-3]$
makelist(a[n], n, 0, 7); /* Martin Ettl, Oct 29 2012 */

Crossrefs

Cf. A184163, A218270, A218271

Sequence in context: A265777 A076658 A218270 * A282706 A301346 A020549

Adjacent sequences: A218119 A218120 A218121 * A218123 A218124 A218125

Keyword

nonn

Author

Nico Brown, Oct 24 2012

Extensions

a(6) and a(7) corrected by Martin Ettl, Oct 29 2012

Status

approved