OFFSET
1,2
FORMULA
a(n) = Min[A075860(x); x=1+p(n), ..., -1+p(n+1)].
EXAMPLE
Between p(23)=83 and p(24)=89, the relevant fixed points are
{5,13,2,2,13}, of which the smallest is 2=a(24).
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[Min[Table[FixedPoint[sopf, w], {w, 1+Prime[n], Prime[n+1]-1}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 16 2003
STATUS
approved