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

Author

Vladimir Joseph Stephan Orlovsky, Apr 29 2008

Keywords

• nonn

Comments

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

Programs

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

Extensions

Edited and extended by Stefan Steinerberger, May 02 2008

Description edited by Ray Chandler, May 02 2009