%I
%S 211,1511,1847,2179,2503,2579,2633,2819,2939,3137,3271,3433,3659,3967,
%T 3989,4111,4177,4409,4621,4691,4703,4831,4889,5039,5209,5261,5623,
%U 5939,5953,6619,6637,6883,7057,7283,7369,7393,7433,7621,7741,7841,7853,7963
%N Prime numbers, isolated from neighboring primes by >10.
%C Prime numbers prime(n) such that A051702(n) exceeds 10.  _Stefan Steinerberger_, May 02 2008
%t q=10;s="";For[i=1,i<12^2,p=Prime[i];a=0;For[j=2,j<=q,If[PrimeQ[pj]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] + 10 < Prime[ # ] < Prime[ # + 1]  10 &]] (* _Stefan Steinerberger_, May 02 2008 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008
%E Edited and extended by _Stefan Steinerberger_, May 02 2008
%E Description edited by _Ray Chandler_, May 02 2009
