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 A092126 #8 Feb 10 2016 18:02:37
%S A092126 213,215,299,411,1133,1135,1343,1345,1383,1385,1387,1685,1793,1835,
%T A092126 1837,1891,1937,1939,1957,2045,2315,2317,2513,2567,2807,2809,2929,
%U A092126 3091,3093,3095,3097,3147,3149,3647,3957,3977,3979,4115,4313,4315,4411,4529,4531
%N A092126 Numbers n such that n, n+2, n+4, n+6 are semiprimes.
%C A092126 Semiprimes in arithmetic progression. All terms are odd, see also A056809.
%H A092126 Harvey P. Dale, <a href="/A092126/b092126.txt">Table of n, a(n) for n = 1..1000</a>
%t A092126 PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[Table[ #[[2]], {1}] & /@ FactorInteger[n]]; Select[ Range[ 4626], PrimeFactorExponentsAdded[ # ] == PrimeFactorExponentsAdded[ # + 2] == PrimeFactorExponentsAdded[ # + 4] == PrimeFactorExponentsAdded[ # + 6] == 2 &] (* _Robert G. Wilson v_, Feb 24 2004 *)
%t A092126 Transpose[SequencePosition[Table[If[PrimeOmega[n]==2,1,0],{n,5000}],{1,_,1,_,1,_,1}]][[1]] (* The program uses the SequencePosition function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 10 2016 *)
%Y A092126 Cf. A056809, A070552, A092125, A092127, A092128, A092129.
%K A092126 easy,nonn
%O A092126 1,1
%A A092126 _Zak Seidov_, Feb 22 2004