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