OFFSET
1,1
EXAMPLE
n=10, C[20,10]=184756, iteration list={184756,7560,210,2},
a(100)=2.
MATHEMATICA
prd[x_] := Apply[Times, DeleteCases[IntegerDigits[x], 0]] Table[FixedPoint[prd, Binomial[2*n, n]], {w, 1, 128}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Jul 21 2003
STATUS
approved