OFFSET
0,3
COMMENTS
The next term has roughly 1.7*10^23 digits.
EXAMPLE
a(2) = a(0)^a(1)+1 = 1+1 = 2.
MATHEMATICA
nxt[{a_, b_}]:={b, a^b+1}; Join[{1}, NestList[nxt, {1, 1}, 5][[All, 2]]] (* Harvey P. Dale, Nov 25 2016 *)
PROG
(Maxima)
a[0]:1$
a[1]:1$
a[n]:=a[n-2]^a[n-1]+1$
makelist(a[n], n, 1, 6); /* Martin Ettl, Oct 29 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Nico Brown, Oct 24 2012
STATUS
approved