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 A127018 #9 Dec 30 2024 12:52:54
%S A127018 4,6,4,6,4,9,21,6,4,6,4,9,9,6,4,6,4,10,39,6,4,14,9,9,15,6,4,6,4,9,15,
%T A127018 10,21,6,4,10,21,6,4,6,4,9,9,6,4,14,21,10,21,6,4,14,9,10,9,6,4,6,4,9,
%U A127018 21,9,15,6,4,9,9,6,4,6,4,14,9,10,9,6,4,10,25,6,4,14,21,9,15,6,4,9,9,14,21,10
%N A127018 Least s with s, t both semiprime and s+2n = t.
%t A127018 sp=Select[Range[1000],PrimeOmega[#]==2&];seq={};Do[s=0;Until[PrimeOmega[sp[[s]]+2n]==2,s++];AppendTo[seq,sp[[s]]],{n,92}];seq (* _James C. McMahon_, Dec 30 2024 *)
%o A127018 (PARI) a(n) = for (k=1, oo, if ((bigomega(k)==2) && bigomega(2*n+k)==2, return(k))); \\ _Michel Marcus_, Dec 30 2024
%Y A127018 Cf. A001358, A127019, A020483.
%K A127018 nonn
%O A127018 1,1
%A A127018 _Rick L. Shepherd_, Jan 02 2007