A051345 Odd numbers not of the form 3 + twin prime + twin prime.
1, 3, 5, 7, 97, 99, 101, 403, 405, 407, 517, 519, 521, 787, 789, 791, 907, 909, 911, 1117, 1119, 1121, 1147, 1149, 1151, 1267, 1269, 1271, 1357, 1359, 1361, 3247, 3249, 3251, 4207, 4209, 4211
Offset: 1
Crossrefs
Essentially A007534 + 3.
Programs
-
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 *)
Extensions
No others below 100000. Conjectured to be complete.