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 A137702 #9 Jun 15 2013 04:52:32 %S A137702 5,13,73,421,541,613,661,673,1201,1453,2341,2473,2593,3061,3313,4441, %T A137702 4561,5113,6073,6121,6133,8521,8893,9601,9901,10453,11161,11701,12301, %U A137702 12721,13381,13681,13933,15241,15361,15373,15733,16033,16333,16381 %N A137702 Prime numbers p such that p +- ((p-1)/2) are primes. %H A137702 Vincenzo Librandi, <a href="/A137702/b137702.txt">Table of n, a(n) for n = 1..1000</a> %e A137702 (5-2, 5+2) are prime %e A137702 (13-6, 13+6) are prime %t A137702 Select[Prime[Range[1000]], PrimeQ[#-(#-1)/2] && PrimeQ[#+(#-1)/2]&] %o A137702 (PARI) forprime(p=3,1e5,if(isprime(p+p\2)&isprime(p\2+1),print1(p", "))) %Y A137702 Cf. A174734. %K A137702 nonn,easy %O A137702 1,1 %A A137702 _Vladimir Joseph Stephan Orlovsky_, Apr 27 2008