OFFSET
1,1
EXAMPLE
n=100,p(100)=541,start at 541! and get iteration list=
{541!,24133} ended immediately in a(100)=24133;
n=99,p(99)-523,start at 523! and get a list of
{523!,23592,988,34,19}, a(99)=19.
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, Prime[w]! ], {w, 2, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 09 2003
STATUS
approved