OFFSET
3,1
MATHEMATICA
lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]]; (*least prime factor*)
lpf3[n_]:=lpf3[n]=If[#==1, 1, lpf[#]]&[n/3^IntegerExponent[n, 3]];
pos={}; NestWhile[#+1&, 3, (AppendTo[pos, Min[Position[A242059, Prime[#], 1, 1], Position[A242060, Prime[#], 1, 1]/.{}->0]]; !Last[pos]==0)&];
A242065=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