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 A103394 #8 Sep 02 2024 12:35:12
%S A103394 4,9,15,21,33,38,58,65,86,106,121,129,265,979,1079,2279,7985,8491,
%T A103394 14019,15397,37606,61289,71845,117013,127401,196763,221905,244414,
%U A103394 265358,290111,466319,555469,1065241,1672598,4276487,4712791,5266246,8178897
%N A103394 Semiprimes in A103374.
%e A103394 61289 is an element of this sequence because A103374(107) = 61289 and 61289 is semiprime because 61289 = 167 * 367 where both 167 and 367 are primes.
%t A103394 SemiprimeQ[n_] := Plus @@ FactorInteger[n][[All, 2]] == 2; k = 6; Do[a[n] = 1, {n, k + 1}]; a[n_] := a[n] = a[n - k] + a[n - k - 1]; Union[Select[Array[a, 160], SemiprimeQ]]
%t A103394 Select[LinearRecurrence[{0,0,0,0,0,1,1},{1,1,1,1,1,1,1},200],PrimeOmega[#]==2&]//Union (* _Harvey P. Dale_, Sep 02 2024 *)
%Y A103394 Intersection of A103374 with A001358.
%Y A103394 Cf. A001358, A103374, A103384, A103392-A103401.
%K A103394 nonn,easy
%O A103394 1,1
%A A103394 _Jonathan Vos Post_, Feb 03 2005
%E A103394 Edited and extended by _Ray Chandler_ and _Robert G. Wilson v_, Feb 06 2005