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 A100916 #10 Feb 16 2025 08:32:55
%S A100916 10,15,25,34,46,51,55,57,69,86,91,95,106,119,121,133,141,145,155,161,
%T A100916 166,217,218,226,247,249,253,262,274,291,298,299,302,305,341,358,365,
%U A100916 382,407,413,445,446,481,485,501,515,533,538,543,551,559,614,623,626
%N A100916 Sum of a semiprime and its semiprime index is a new semiprime.
%C A100916 This is the semiprime analog of A061067.
%H A100916 Eric Weisstein, World of Mathematics, <a href="https://mathworld.wolfram.com/Semiprime.html">Semiprime.</a>
%F A100916 a(n) = A100466(n) - A100915(n) = A001358(A100915(n)).
%e A100916 a(1) = 10 because 10 = semiprime(4) and semiprime(4) + 4 = 14 is
%e A100916 semiprime.
%e A100916 a(2) = 15 because 15 = semiprime(6) and semiprime(6) + 6 = 21 is
%e A100916 semiprime.
%t A100916 Module[{sp=Select[Range[1000],PrimeOmega[#]==2&],len},len=Length[sp];Select[ Thread[{sp,Range[len]}],PrimeOmega[Total[#]]==2&]][[All,1]] (* _Harvey P. Dale_, Jan 13 2019 *)
%Y A100916 Cf. A001358, A061067, A100493, A100466, A100467, A100915.
%K A100916 easy,nonn
%O A100916 1,1
%A A100916 _Ray Chandler_, Nov 26 2004