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 A176140 #8 Nov 05 2017 14:00:45
%S A176140 10,14,26,34,86,106,134,194,226,254,274,314,334,386,446,566,974,1094,
%T A176140 1126,1226,1234,1286,1294,1486,1546,1874,2066,2374,2386,2554,2854,
%U A176140 2906,2966,3086,3166,3254,3326,3466,3694,4054,4286,4594,4786,4874,4934,4954
%N A176140 Semiprimes s such that both s + 3 and s - 3 are primes.
%C A176140 2*5=10-+3->7,13 primes,...
%t A176140 f[n_]:=Last/@FactorInteger[n]=={1,1};lst={};Do[If[f[n]&&PrimeQ[n-3]&&PrimeQ[n+3],AppendTo[lst,n]],{n,0,4*7!}];lst
%t A176140 Select[Range[5000],PrimeOmega[#]==2&&AllTrue[#+{3,-3},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 05 2017 *)
%Y A176140 Cf. A125215, A125216
%K A176140 nonn
%O A176140 1,1
%A A176140 _Vladimir Joseph Stephan Orlovsky_, Apr 09 2010
%E A176140 Definition corrected by _Zak Seidov_, May 06 2013