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