A070282 a(1) = 1; a(2) = 2; a(n) = [sum of digits of a(n-1)]^[sum of digits of a(n-2)] for n > 2.

1, 2, 2, 4, 16, 2401, 823543, 6103515625, 193630125104980427932766033374162714624, 121679161406852748316898260838871037524995421354288562472420444438058627601

Offset

1,2

Comments

The next term, a(11), has 381 digits. - Harvey P. Dale, Jan 08 2013

Links

Table of n, a(n) for n=1..10.

Mathematica

a[n_] := (Plus @@ IntegerDigits[a[n - 1]])^(Plus @@ IntegerDigits[a[n - 2]]); a[1] = 1; a[2] = 2; Table[ a[n], {n, 1, 10}]
nxt[{a_, b_}]:={b, Total[IntegerDigits[b]]^Total[IntegerDigits[a]]}; Transpose[ NestList[nxt, {1, 2}, 10]][[1]] (* Harvey P. Dale, Jan 08 2013 *)

Crossrefs

Sequence in context: A171163 A129614 A070283 * A267218 A051285 A079556

Adjacent sequences: A070279 A070280 A070281 * A070283 A070284 A070285

Keyword

base,nonn

Author

Joseph L. Pe, May 09 2002

Extensions

Edited by Robert G. Wilson v, May 14 2002

Status

approved