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 A241764 #26 Dec 21 2015 20:29:50 %S A241764 9,25,38,49,58,65,77,85,94,118,121,122,145,146,158,161,169,205,206, %T A241764 209,217,218,221,262,265,298,301,302,305,326,329,358,361,365,394,398, %U A241764 454,469,481,485,505,514,517,529,538,545,554,562,565,586,589,614 %N A241764 Semiprimes sp such that sp-3 is also semiprime. %C A241764 Also semiprimes of the form 2^x - x. %C A241764 The primes of the form 2^x - x are in A081296. %H A241764 K. D. Bajpai, <a href="/A241764/b241764.txt">Table of n, a(n) for n = 1..1100</a> %e A241764 a(3)= 38 = 2*19, which is semiprime: 38-3 = 35 = 5*7 is also semiprime. %e A241764 a(5)= 58 = 2*29, which is semiprime: 58-3 = 55 = 5*11 is also semiprime. %p A241764 with(numtheory): A241764:= proc(); if bigomega(x)=2 and bigomega(x-3)=2 then RETURN (x); fi; end: seq(A241764 (), x=1..2000); %t A241764 Flatten[Position[Partition[Table[If[PrimeOmega[n]==2,1,0],{n,700}],4,1], _?(First[ #] ==Last[#]==1&),{1},Heads->False]]+3 (* _Harvey P. Dale_, Dec 21 2015 *) %o A241764 (PARI) for(k=1, 500, if(bigomega(k)==2 && bigomega(k-3)==2, print1(k, ", "))) \\ _Colin Barker_, May 07 2014 %Y A241764 Cf. A001358, A092207, A123017, A198327. %K A241764 nonn %O A241764 1,1 %A A241764 _K. D. Bajpai_, Apr 29 2014