OFFSET
1,2
MATHEMATICA
tps=Flatten[Select[Partition[Prime[Range[2000]], 2, 1], Last[#]-First[#]==2&]]; Complement[Range[1, Last[tps], 2], Union[Total[#]+3&/@Tuples[tps, {2}]]] (* Harvey P. Dale, Apr 01 2011 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
EXTENSIONS
No others below 100000. Conjectured to be complete.
STATUS
approved