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 A175664 #12 Mar 08 2019 03:30:30
%S A175664 10,14,25,26,38,39,55,62,69,86,91,95,115,119,122,123,133,145,146,159,
%T A175664 187,205,206,209,213,217,218,219,221,253,278,291,295,299,302,303,305,
%U A175664 309,323,327,339,362,365,381,386,395,398,407,411,415,417,451,458,473
%N A175664 Greater of twin semiprimes.
%C A175664 Semiprimes m such that m-4 is also semiprime.
%H A175664 Harvey P. Dale, <a href="/A175664/b175664.txt">Table of n, a(n) for n = 1..1000</a>
%F A175664 a(n) = 4 + A175648(n). - _R. J. Mathar_, Aug 07 2010
%e A175664 a(1)=10 because 10 (semiprime) - 4 = 6 (semiprime);
%e A175664 a(2)=14 because 14 (semiprime) - 4 = 10 (semiprime).
%p A175664 A175664 := proc(n) option remember; if n = 1 then 10; else for a from procname(n-1)+1 do if numtheory[bigomega](a) = 2 and numtheory[bigomega](a-4) = 2 then return a; end if; end do: end if; end proc: seq(A175664(n),n=1..100) ; # _R. J. Mathar_, Aug 07 2010
%t A175664 SequencePosition[Table[If[PrimeOmega[n]==2,1,0],{n,500}],{1,_,_,_,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 16 2017 *)
%Y A175664 Cf. A006512 (greater of twin primes), A175612 (list of twin semiprimes), A175648 (lesser of twin semiprimes).
%K A175664 nonn
%O A175664 1,1
%A A175664 _Juri-Stepan Gerasimov_, Aug 04 2010
%E A175664 Corrected (313 removed) by _R. J. Mathar_, Aug 07 2010