OFFSET
1,1
MATHEMATICA
s={2}; n=6; Do[m=n+1; While[PrimeOmega[m]!= 2, m++]; If[FreeQ[s, m-n], AppendTo[s, m-n]; Print[{n, m-n}]]; n=m, {10^8}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 27 2022
STATUS
approved