OFFSET
2,2
COMMENTS
a(n)<n holds usually, except few large values arising unexpectedly.
EXAMPLE
n=100,p(100)=541,starts at factorial of 100th prime and ends
in 24133, the 2687th prime, so a(100)=2687;
n=99, initial value=523!, fixed point is 19, the 8th prime,
a(99)=8.
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[PrimePi[FixedPoint[sopf, Prime[w]! ]], {w, 2, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 09 2003
STATUS
approved