OFFSET
1,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{sps=Select[Range[600], PrimeOmega[#]==2&], evs}, evs= Select[ sps, EvenQ]; #[[1]]-#[[2]]&/@Thread[{evs, Take[sps, Length[evs]]}]] (* Harvey P. Dale, Sep 07 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 03 2010
EXTENSIONS
Entries checked by R. J. Mathar, Aug 12 2010
STATUS
approved