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 A173972 #4 Apr 17 2012 17:21:56
%S A173972 11,31,37,41,43,61,67,71,83,89,97,101,107,127,131,137,139,151,163,167,
%T A173972 179,181,191,193,199,251,271,277,281,293,307,311,313,317,331,347,359,
%U A173972 367,379,383,389,397,401,421,431,433,443,449,457,461,463,467,479,487
%N A173972 Primes which are not in A173970 or A173971.
%t A173972 lst={}; Do[p=Prime[n]; If[PrimeQ[2*p-Prime[n+1]], AppendTo[lst,p]], {n,8!}]; lst1=lst; lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst,p]],{n,8!}]; lst2=lst; Complement[Prime[Range[200]], lst1, lst2]
%Y A173972 Cf. A173970, A173971.
%K A173972 nonn
%O A173972 1,1
%A A173972 _Vladimir Joseph Stephan Orlovsky_, Mar 03 2010