OFFSET
1,2
EXAMPLE
n=10, 10!=362880, iteration list={3628800,2304,24,8},a(10)=8.
MATHEMATICA
prd[x_] := Apply[Times, DeleteCases[IntegerDigits[x], 0]] Table[FixedPoint[prd, w! ], {w, 1, 128}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Jul 21 2003
STATUS
approved