A173972 Primes which are not in A173970 or A173971.

11, 31, 37, 41, 43, 61, 67, 71, 83, 89, 97, 101, 107, 127, 131, 137, 139, 151, 163, 167, 179, 181, 191, 193, 199, 251, 271, 277, 281, 293, 307, 311, 313, 317, 331, 347, 359, 367, 379, 383, 389, 397, 401, 421, 431, 433, 443, 449, 457, 461, 463, 467, 479, 487

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

Keywords

• nonn

Crossrefs

Cf. A173970, A173971.

Programs

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[2*p-Prime[n+1]], AppendTo[lst,p]], {n,8!}]; lst1=lst; lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst,p]],{n,8!}]; lst2=lst; Complement[Prime[Range[200]], lst1, lst2]