OFFSET
2,2
MATHEMATICA
lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]]; (*least prime factor*)
pos={}; NestWhile[#+1&, 2, (AppendTo[pos, Min[Position[A242033, Prime[#], 1, 1], Position[A242034, Prime[#], 1, 1]/.{}->0]]; !Last[pos]==0)&];
A242064=Rest[FoldList[Max, -Infinity, Flatten[pos]]] (* Peter J. C. Moses, Aug 14 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Aug 13 2014
EXTENSIONS
More terms from Peter J. C. Moses, Aug 14 2014
STATUS
approved