OFFSET
1,1
MATHEMATICA
Module[{nn=300, sps}, sps=Select[Range[nn], PrimeOmega[#]==2&]; #[[1]]-#[[2]]&/@Thread[ {sps, Range[Length[sps]]}]] (* Harvey P. Dale, Jun 12 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Aug 10 2010
EXTENSIONS
Corrected (61 replaced by 71) by R. J. Mathar, Aug 13 2010
STATUS
approved