|
| |
|
|
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
| |
|
|
1, 2, 2, 4, 16, 2401, 823543, 6103515625, 193630125104980427932766033374162714624, 121679161406852748316898260838871037524995421354288562472420444438058627601
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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}]
|
|
|
CROSSREFS
| Sequence in context: A165420 A129614 A070283 * A051285 A079556 A052628
Adjacent sequences: A070279 A070280 A070281 * A070283 A070284 A070285
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Joseph L. Pe (joseph_l_pe(AT)hotmail.com), May 09 2002
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), May 14 2002
|
| |
|
|
