OFFSET
1,1
EXAMPLE
n=73: iteration list=
{73!=61234458376886086861524070385274672740778091784697328983823014963978384987221689274204160000000000000000,639,74,39,16,2,2}
MATHEMATICA
ffi[x_] := Flatten[FactorInteger[x]] lf[x_] := Length[FactorInteger[x]] ba[x_] := Table[Part[ffi[x], 2*w-1], {w, 1, lf[x]}] sopf[x_] := Apply[Plus, ba[x]] Table[FixedPoint[sopf, w! ], {w, 2, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 09 2003
STATUS
approved