A137871 Prime numbers, isolated from neighboring primes by >8.

211, 293, 631, 787, 797, 839, 1249, 1259, 1399, 1409, 1471, 1511, 1637, 1709, 1801, 1811, 1847, 1889, 2039, 2053, 2099, 2179, 2503, 2521, 2579, 2633, 2647, 2767, 2777, 2819, 2927, 2939, 3109, 3137, 3271, 3433, 3571, 3593, 3659, 3779, 3833, 3863, 3967

Offset

1,1

Comments

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

Links

Table of n, a(n) for n=1..43.

Mathematica

q=8; 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] + 8 < Prime[ # ] < Prime[ # + 1] - 8 &]] (* Stefan Steinerberger, May 02 2008 *)
Select[Partition[Prime[Range[600]], 3, 1], Min[Differences[#]]>8&][[All, 2]] (* Harvey P. Dale, Aug 28 2022 *)

Crossrefs

Sequence in context: A001583 A308790 A137870 * A142582 A139651 A139985

Adjacent sequences: A137868 A137869 A137870 * A137872 A137873 A137874

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