A086136 Primes p such that p and p+12 are nonconsecutive primes.

5, 7, 11, 17, 19, 29, 31, 41, 47, 59, 61, 67, 71, 89, 97, 101, 127, 137, 139, 151, 167, 179, 181, 227, 229, 239, 251, 257, 269, 271, 281, 337, 347, 367, 389, 397, 409, 419, 421, 431, 449, 479, 487, 491, 557, 587, 601, 607, 631, 641, 647, 727, 739, 757, 761, 809

Offset: 1

Author

Labos Elemer, Jul 28 2003

Keywords

• nonn

Comments

This sequence differs from A046133 because here the terms of A031930 are missing.

Complement of a=A031930 with respect to b=A046133: [b] & [not a]: this and A031930 are disjoint, but A031930 is a proper subset of A046133.

Examples

			First two deviations from A046133 are that 199=A031930(1) and 211=A031930(2) are missing. First 20 terms are equal.
		

Links

• Jonathan Frech, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A031930, A046133.

Programs

Mathematica

Do[s=Prime[n]; s1=Prime[n+1]; If[PrimeQ[s+d]&& !Equal[s1-s, d], Print[s]], {n, 1, 1000}]; d=12
ncpQ[n_]:=Module[{c=n+12},PrimeQ[c]&&NextPrime[n]!=c]; Select[Prime[ Range[ 150]],ncpQ] (* Harvey P. Dale, May 03 2012 *)