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