1,3
The next term is 105 digits long.
Join[{a=1, b=1}, Table[c=b+b^a; a=b; b=c, {n, 5}]] (* From Vladimir Joseph Stephan Orlovsky, Apr 13 2011 *)
Cf. A058523.
Sequence in context: A087314 A099179 A102049 * A122736 A092458 A071779
Adjacent sequences: A058519 A058520 A058521 * A058523 A058524 A058525
easy,nonn
Leroy Quet Dec 21 2000