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.

A103396 Semiprimes in A103376.

This page as a plain text file.
%I A103396 #7 May 07 2015 10:07:51
%S A103396 4,9,15,21,33,38,58,65,86,106,121,129,265,511,2038,2059,4097,4174,
%T A103396 7894,16021,19857,31313,32419,33238,37711,116197,196609,220937,262978,
%U A103396 273926,955743,34826059,64229819,67835071,77834009,497049562,4370946037
%N A103396 Semiprimes in A103376.
%C A103396 Intersection of A103376 with A001358.
%t A103396 SemiprimeQ[n_] := Plus @@ FactorInteger[n][[All, 2]] == 2; k = 8; Do[a[n] = 1, {n, k + 1}]; a[n_] := a[n] = a[n - k] + a[n - k - 1]; Union[Select[Array[a, 280], SemiprimeQ]]
%t A103396 Union[Select[LinearRecurrence[{0,0,0,0,0,0,0,1,1},{1,1,1,1,1,1,1,1,1},300],PrimeOmega[#]==2&]] (* _Harvey P. Dale_, May 07 2015 *)
%Y A103396 Cf. A001358, A103376, A103386, A103392-A103401.
%K A103396 nonn,easy
%O A103396 1,1
%A A103396 _Jonathan Vos Post_, Feb 05 2005
%E A103396 Edited and extended by _Ray Chandler_, Feb 10 2005