Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A137872
Prime numbers, isolated from neighboring primes by >10.
3
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited and extended by Stefan Steinerberger, May 02 2008
Description edited by Ray Chandler, May 02 2009
STATUS
approved