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 A134622 #7 Apr 08 2025 13:09:10 %S A134622 6,9,10,15,22,25,33,34,51,55,58,77,82,85,87,118,119,121,123,142,145, %T A134622 177,187,202,203,205,213,214,221,274,287,289,295,298,303,319,321,355, %U A134622 358,377,382,394,411,413,447,451,454,478,493,497,505,533,535,537,538,551,562,573 %N A134622 Products pq ("semiprimes") of two primes p and q >= p such that q+2 is a prime. %p A134622 p:=ithprime; %p A134622 t1:=[]; %p A134622 for i from 1 to 100 do %p A134622 p1:=p(i); %p A134622 for j from i to 100 do %p A134622 p2:=p(j); %p A134622 if isprime(p2+2) then t1:=[op(t1),p1*p2]; fi; %p A134622 od: od: %p A134622 t2:=sort(t1); %t A134622 Select[Range[573],PrimeOmega[#]==2&&PrimeQ[Divisors[#][[-2]]+2]&] (* _James C. McMahon_, Apr 08 2025 *) %Y A134622 Cf. A108605. %K A134622 nonn %O A134622 1,1 %A A134622 _N. J. A. Sloane_, Oct 17 2009