cp's OEIS Frontend

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.

A103393 Semiprimes in A103373.

This page as a plain text file.
%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