This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A137870 #13 Dec 04 2019 13:34:20 %S A137870 211,293,409,479,631,691,701,709,719,787,797,839,919,929,1163,1171, %T A137870 1201,1249,1259,1381,1399,1409,1471,1511,1523,1531,1637,1709,1733, %U A137870 1801,1811,1823,1831,1847,1889,2039,2053,2099,2153,2161,2179,2221,2251,2459,2503 %N A137870 Prime numbers, isolated from neighboring primes by >6. %C A137870 The distance to the nearest prime has to exceed 6 and equality is not allowed. - _Stefan Steinerberger_, May 02 2008 %H A137870 Harvey P. Dale, <a href="/A137870/b137870.txt">Table of n, a(n) for n = 1..1000</a> %e A137870 211-199=12 and 223-211=12. %e A137870 293-283=10 and 307-293=14. %t A137870 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 A137870 Prime[Select[Range[2, 1500], Prime[ # - 1] + 6 < Prime[ # ] < Prime[ # + 1] - 6 &]] (* _Stefan Steinerberger_, May 02 2008 *) %t A137870 Transpose[Select[Partition[Prime[Range[400]],3,1],Min[ Differences[ #]]>6&]] [[2]] (* _Harvey P. Dale_, Feb 17 2012 *) %K A137870 nonn %O A137870 1,1 %A A137870 _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008 %E A137870 More terms from _Stefan Steinerberger_, May 02 2008 %E A137870 Description edited by _Ray Chandler_, May 02 2009