A137873 Prime numbers, isolated from neighboring primes by more than 12.

1847, 2179, 2503, 2819, 3137, 3433, 3967, 4177, 4621, 4831, 5623, 5953, 6637, 7283, 7369, 7393, 7433, 7621, 7993, 8039, 8147, 9257, 9587, 10753, 11027, 11197, 11213, 11369, 11657, 13063, 13367, 13381, 13537, 13553, 13649, 13859, 14107, 14221

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 29 2008

Keywords

• nonn

Comments

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

Links

• Daniel Starodubtsev, Table of n, a(n) for n = 1..1000

Crossrefs

Note that this is different from A137796.

Programs

Mathematica

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]
Prime[Select[Range[2,2000],Prime[ #-1]+12Ray Chandler, May 02 2009 *)
Select[Partition[Prime[Range[2000]],3,1],Min[Differences[#]]>12&][[All,2]] (* Harvey P. Dale, Apr 09 2022 *)

Extensions

Extended by Ray Chandler, May 02 2009