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
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 03 2007
STATUS
approved