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.

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

Links

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

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

Adjacent sequences: A070280 A070281 A070282 * A070284 A070285 A070286

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