login
A242034
a(n) = lpf(A243937(n)-3), where lpf = least prime factor (A020639).
9
3, 5, 3, 11, 3, 17, 3, 3, 29, 3, 5, 3, 41, 3, 3, 3, 59, 3, 5, 3, 71, 3, 7, 3, 3, 3, 5, 3, 101, 3, 107, 3, 3, 7, 3, 5, 3, 3, 137, 3, 3, 149, 3, 5, 3, 7, 3, 3, 3, 179, 3, 5, 3, 191, 3, 197, 3, 3, 11, 3, 5, 3, 13, 3, 227, 3, 3, 239, 3, 5, 3, 3, 3, 3, 269, 3, 5, 3
OFFSET
1,1
COMMENTS
The records of the sequence form sequence of lesser numbers of twin primes.
The sequence contains all odd primes. Cf. comment by Robert Israel in A242033. - Vladimir Shevelev, Aug 16 2014
LINKS
MATHEMATICA
lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]]; (* least prime factor *)
A242034=Map[lpf[#-3]&, Select[Range[6, 300, 2], lpf[#-1]>lpf[#-3]&](*A243937*)] (* Peter J. C. Moses, Aug 14 2014 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Vladimir Shevelev, Aug 12 2014
EXTENSIONS
More terms from Peter J. C. Moses, Aug 12 2014
STATUS
approved