A126095 Lesser of pairs of single (non-twin) primes.

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

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Cf. A007510.

Sequence in context: A039425 A043248 A044028 * A132259 A046002 A347695

Adjacent sequences: A126092 A126093 A126094 * A126096 A126097 A126098

Keyword

nonn

Author

Zak Seidov, Mar 03 2007

Status

approved