|
%I #17 Feb 12 2014 18:18:44
%S 1,3,5,7,97,99,101,403,405,407,517,519,521,787,789,791,907,909,911,
%T 1117,1119,1121,1147,1149,1151,1267,1269,1271,1357,1359,1361,3247,
%U 3249,3251,4207,4209,4211
%N Odd numbers not of the form 3 + twin prime + twin prime.
%H <a href="/index/Go#Goldbach">Index entries for sequences related to Goldbach conjecture</a>
%t 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 *)
%Y Essentially A007534 + 3.
%K nonn,nice
%O 1,2
%A _David W. Wilson_
%E No others below 100000. Conjectured to be complete.
|
