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 A103393 #8 Jul 20 2019 17:53:05 %S A103393 4,9,15,21,33,38,58,65,86,106,121,249,895,989,1199,2059,3073,9206, %T A103393 12302,19766,33238,63109,197459,252982,283942,477931,691357,4598261, %U A103393 8671301,9819097,11176233,51113687,205150267,232797043,496450043,562358905 %N A103393 Semiprimes in A103373. %C A103393 Intersection of A103373 with A001358. %e A103393 63109 is an element of this sequence because A103373(91) = 63109 and 63109 is semiprime because 63109 = 223 * 283 where both 223 and 283 are primes. %t A103393 SemiprimeQ[n_] := Plus @@ FactorInteger[n][[All, 2]] == 2; k = 5; Do[a[n] = 1, {n, k + 1}]; a[n_] := a[n] = a[n - k] + a[n - k - 1]; Union[Select[Array[a, 170], SemiprimeQ]] %t A103393 Select[LinearRecurrence[{0,0,0,0,1,1},{1,1,1,1,1,1},200],PrimeOmega[ #] == 2&]//Union (* _Harvey P. Dale_, Jul 20 2019 *) %Y A103393 Cf. A001358, A103373, A103383, A103392-A103401. %K A103393 nonn,easy %O A103393 1,1 %A A103393 _Jonathan Vos Post_, Feb 03 2005 %E A103393 Edited and extended by _Ray Chandler_ and _Robert G. Wilson v_, Feb 06 2005