A137870 Prime numbers, isolated from neighboring primes by >6.

211, 293, 409, 479, 631, 691, 701, 709, 719, 787, 797, 839, 919, 929, 1163, 1171, 1201, 1249, 1259, 1381, 1399, 1409, 1471, 1511, 1523, 1531, 1637, 1709, 1733, 1801, 1811, 1823, 1831, 1847, 1889, 2039, 2053, 2099, 2153, 2161, 2179, 2221, 2251, 2459, 2503

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 29 2008

Keywords

• nonn

Comments

The distance to the nearest prime has to exceed 6 and equality is not allowed. - Stefan Steinerberger, May 02 2008

Examples

			211-199=12 and 223-211=12.
293-283=10 and 307-293=14.
		

Links

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

Programs

Mathematica

q=6;s="";For[i=1,i<12^2,p=Prime[i];a=0;For[j=2,j<=q,If[PrimeQ[p-j]||PrimeQ[p+j], a=1;Break[]];j=j+2];If[a==0,s=s<>ToString[p]<>","];i++ ];Print[s]
Prime[Select[Range[2, 1500], Prime[ # - 1] + 6 < Prime[ # ] < Prime[ # + 1] - 6 &]] (* Stefan Steinerberger, May 02 2008 *)
Transpose[Select[Partition[Prime[Range[400]],3,1],Min[ Differences[ #]]>6&]] [[2]] (* Harvey P. Dale, Feb 17 2012 *)

Extensions

More terms from Stefan Steinerberger, May 02 2008

Description edited by Ray Chandler, May 02 2009