OFFSET
1,2
COMMENTS
An analog of A242034. Records are lesser numbers of twin primes.
MATHEMATICA
lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]];
lpf3[n_]:=lpf3[n]=If[#==1, 1, lpf[#]]&[n/3^IntegerExponent[n, 3]]
Map[lpf3[#-3]&, Select[Range[4, 300, 2], lpf3[#-1]>lpf3[#-3]&]](* Peter J. C. Moses, Aug 13 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Aug 13 2014
EXTENSIONS
More terms from Peter J. C. Moses, Aug 13 2014
STATUS
approved