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 A158710 #2 Mar 31 2012 12:38:20
%S A158710 17,23,37,43,61,79,83,89,97,103,107,113,137,139,157,163,173,191,193,
%T A158710 197,199,223,227,229,241,251,257,263,269,271,277,283,313,317,331,337,
%U A158710 353,359,367,373,383,389,397,419,433,443,457,463,487,491,499,503,509,521
%N A158710 Primes p which are not in A158708 and A158709.
%t A158710 lst={};Do[p=Prime[n];If[ !PrimeQ[Floor[p/2]+p]&&!PrimeQ[Ceiling[p/2]+p],AppendTo[lst,p]],{n,6!}];lst
%Y A158710 Cf. A158708, A158709
%K A158710 nonn
%O A158710 1,1
%A A158710 _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009