A137872 Prime numbers, isolated from neighboring primes by >10.

211, 1511, 1847, 2179, 2503, 2579, 2633, 2819, 2939, 3137, 3271, 3433, 3659, 3967, 3989, 4111, 4177, 4409, 4621, 4691, 4703, 4831, 4889, 5039, 5209, 5261, 5623, 5939, 5953, 6619, 6637, 6883, 7057, 7283, 7369, 7393, 7433, 7621, 7741, 7841, 7853, 7963

Offset

1,1

Comments

Prime numbers prime(n) such that A051702(n) exceeds 10. - Stefan Steinerberger, May 02 2008

Links

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

Mathematica

q=10; 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] + 10 < Prime[ # ] < Prime[ # + 1] - 10 &]] (* Stefan Steinerberger, May 02 2008 *)

Crossrefs

Sequence in context: A032632 A241959 A179595 * A053072 A303092 A361701

Adjacent sequences: A137869 A137870 A137871 * A137873 A137874 A137875

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 29 2008

Extensions

Edited and extended by Stefan Steinerberger, May 02 2008

Description edited by Ray Chandler, May 02 2009

Status

approved