OFFSET
1,2
FORMULA
a(n)=Max[A075860(x); x=1+p(n), ..., -1+p(n+1)]
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[Max[Table[FixedPoint[sopf, w], {w, 1+Prime[n], Prime[n+1]-1}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 16 2003
STATUS
approved