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 A158722 #2 Mar 31 2012 12:38:20
%S A158722 3,7,11,19,29,37,41,43,47,61,71,79,83,89,97,101,107,109,127,131,137,
%T A158722 139,151,157,163,173,191,199,223,227,229,239,241,251,257,263,271,277,
%U A158722 281,283,293,311,313,317,331,349,353,367,373,379,383,389,397,401,409,419
%N A158722 Primes p which are not in A158720 and A158721.
%t A158722 lst={};Do[p=Prime[n];If[ !PrimeQ[Floor[p/3]+p]&&!PrimeQ[Ceiling[p/3]+p],AppendTo[lst,p]],{n,5!}];lst
%Y A158722 Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714, A158719, A158720, A158721
%K A158722 nonn
%O A158722 1,1
%A A158722 _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009