OFFSET
1,1
COMMENTS
Conjecture: This sequence is infinite.
EXAMPLE
a(1) = 2, the next prime is 3, 3-2=1 is a 3-smooth number, so a(2)=3.
a(30)=113, the next prime is 127, 127-113=14 which is not a 3-smooth number; the next prime after 127 is 131, 131-113=18 which is a 3-smooth number, so a(31)=131.
MATHEMATICA
p = 2; ans = {p}; Do[q = p; While[q = NextPrime[q]; diff = q - p; f = FactorInteger[diff]; s = Length[f]; f[[s, 1]] > 3]; p = q; AppendTo[ans, p], {i, 2, 72}]; Print[ans]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Lei Zhou, Feb 27 2026
STATUS
approved
