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 A216496 #5 Sep 08 2012 14:20:55
%S A216496 2,3,5,7,11,13,17,19,31,37,47,61,67,71,73,89,109,137,179,211,277,337,
%T A216496 379,499,557
%N A216496 Primes that are not in A094383.
%C A216496 Conjecture: a(25)=557 is the last term.
%t A216496 prms = 3; fQ[p_] := Module[{d = 1}, While[prms*d < p && Union[PrimeQ[p - Range[prms]*d]] != {True}, d++]; prms*d < p]; Select[Prime[Range[PrimePi[10000]]], ! fQ[#] &] (* _T. D. Noe_, Sep 08 2012 *)
%Y A216496 Cf. A216495, A094383, A216497, A216498, A216468.
%K A216496 nonn
%O A216496 1,1
%A A216496 _Alex Ratushnyak_, Sep 08 2012