login
A070283
a(1) = 1; a(2) = 2; a(n) = [product of digits of a(n-1)]^[product of digits of a(n-2)] for n > 2.
0
1, 2, 2, 4, 16, 1296, 1586874322944
OFFSET
1,2
COMMENTS
The next term -- a(8) -- has 861 digits. Then a(9) equals zero, and any additional terms are indeterminate. - Harvey P. Dale, Jul 23 2020
MATHEMATICA
a[n_] := (Times @@ IntegerDigits[a[n - 1]])^(Times @@ IntegerDigits[a[n - 2]]); a[1] = 1; a[2] = 2; Table[a[n], {n, 1, 7}]
nxt[{a_, b_}]:={b, (Times@@IntegerDigits[b])^Times@@IntegerDigits[a]}; NestList[ nxt, {1, 2}, 7][[All, 1]] (* Harvey P. Dale, Jul 23 2020 *)
CROSSREFS
Cf. A070282.
Sequence in context: A165420 A171163 A129614 * A070282 A267218 A051285
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, May 09 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 14 2002
The next term is too large to include.
STATUS
approved