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,1

Comments

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

Links

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

Example

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

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 *)

Crossrefs

Sequence in context: A096706 A001583 A308790 * A137871 A142582 A139651

Adjacent sequences: A137867 A137868 A137869 * A137871 A137872 A137873

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 29 2008

Extensions

More terms from Stefan Steinerberger, May 02 2008

Description edited by Ray Chandler, May 02 2009

Status

approved