|
|
A126095
|
|
Lesser of pairs of single (non-twin) primes.
|
|
1
|
|
|
47, 79, 83, 89, 113, 127, 157, 163, 167, 211, 251, 257, 293, 317, 331, 353, 359, 367, 373, 379, 383, 389, 397, 401, 439, 443, 449, 467, 479, 487, 491, 499, 503, 541, 547, 557, 577, 587, 607, 647, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes p such that p-/+2, nextprime(p)-/+2 are not primes. Cf. A007510 Single (or isolated or non-twin) primes.
|
|
LINKS
|
|
|
EXAMPLE
|
47 and 53 are two consecutive primes while 47-/+2, 53-/+2 are not primes;
79 and 83 are two consecutive primes while 79-/+2, 83-/+2 are not primes.
|
|
MATHEMATICA
|
sntpQ[{a_, b_}]:=NoneTrue[Flatten[{a+{2, -2}, b+{2, -2}}], PrimeQ]; Transpose[ Select[ Partition[ Prime[Range[200]], 2, 1], sntpQ]][[1]] (* The program uses the NoneTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 22 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|