A137870 - OEIS

%I #13 Dec 04 2019 13:34:20

%S 211,293,409,479,631,691,701,709,719,787,797,839,919,929,1163,1171,

%T 1201,1249,1259,1381,1399,1409,1471,1511,1523,1531,1637,1709,1733,

%U 1801,1811,1823,1831,1847,1889,2039,2053,2099,2153,2161,2179,2221,2251,2459,2503

%N Prime numbers, isolated from neighboring primes by >6.

%C The distance to the nearest prime has to exceed 6 and equality is not allowed. - _Stefan Steinerberger_, May 02 2008

%H Harvey P. Dale, <a href="/A137870/b137870.txt">Table of n, a(n) for n = 1..1000</a>

%e 211-199=12 and 223-211=12.

%e 293-283=10 and 307-293=14.

%t 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]

%t Prime[Select[Range[2, 1500], Prime[ # - 1] + 6 < Prime[ # ] < Prime[ # + 1] - 6 &]] (* _Stefan Steinerberger_, May 02 2008 *)

%t Transpose[Select[Partition[Prime[Range[400]],3,1],Min[ Differences[ #]]>6&]] [[2]] (* _Harvey P. Dale_, Feb 17 2012 *)

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008

%E More terms from _Stefan Steinerberger_, May 02 2008

%E Description edited by _Ray Chandler_, May 02 2009