OFFSET
0,4
COMMENTS
a(8) has approximately 2.1*10^18 digits.
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
KEYWORD
nonn
AUTHOR
Nico Brown, Oct 24 2012
EXTENSIONS
a(6) and a(7) corrected by Martin Ettl, Oct 29 2012
STATUS
approved