OFFSET
1,2
COMMENTS
Pattern of ten terms repeats beginning with a(7)=48.
MATHEMATICA
nxt[{a_, b_}]:={b, Times@@Select[Flatten[IntegerDigits/@{a, b}], #>0&]}; NestList[nxt, {1, 2}, 50][[;; , 1]] (* or *) PadRight[{1, 2, 2, 4, 8, 32}, 50, {35280, 40320, 5760, 5040, 4200, 160, 48, 192, 576, 3780}] (* Harvey P. Dale, Jun 10 2023 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Dec 17 2004
EXTENSIONS
Corrected and extended by Ray Chandler, Dec 19 2004
STATUS
approved