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,1

Links

Table of n, a(n) for n=1..54.

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]

Crossrefs

Cf. A173970, A173971.

Sequence in context: A259515 A183845 A022423 * A167488 A361976 A298566

Adjacent sequences: A173969 A173970 A173971 * A173973 A173974 A173975

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

Status

approved