|
%I #24 Apr 09 2022 15:34:35
%S 1847,2179,2503,2819,3137,3433,3967,4177,4621,4831,5623,5953,6637,
%T 7283,7369,7393,7433,7621,7993,8039,8147,9257,9587,10753,11027,11197,
%U 11213,11369,11657,13063,13367,13381,13537,13553,13649,13859,14107,14221
%N Prime numbers, isolated from neighboring primes by more than 12.
%C The definition means that p+-2, p+-4, p+-6, p+-8, p+-10 and p+-12 are all composite. - _N. J. A. Sloane_, Jun 04 2008
%H Daniel Starodubtsev, <a href="/A137873/b137873.txt">Table of n, a(n) for n = 1..1000</a>
%t q=12;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,2000],Prime[ #-1]+12<Prime[ # ]<Prime[ #+1]-12&]] (* _Ray Chandler_, May 02 2009 *)
%t Select[Partition[Prime[Range[2000]],3,1],Min[Differences[#]]>12&][[All,2]] (* _Harvey P. Dale_, Apr 09 2022 *)
%Y Note that this is different from A137796.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008
%E Extended by _Ray Chandler_, May 02 2009
|
