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.

A157345 Semiprimes that are the product of two distinct non-Sophie Germain primes.

This page as a plain text file.
%I A157345 #15 Feb 02 2018 02:53:45
%S A157345 91,119,133,217,221,247,259,301,323,329,403,413,427,469,481,497,511,
%T A157345 527,553,559,589,611,629,679,703,707,721,731,749,763,767,793,799,817,
%U A157345 871,889,893,923,949,959,973,1003,1027,1037,1043,1057,1099,1121,1139,1141
%N A157345 Semiprimes that are the product of two distinct non-Sophie Germain primes.
%C A157345 91 = 7*13; 7 and 13 are not Sophie Germain primes, ...
%H A157345 G. C. Greubel, <a href="/A157345/b157345.txt">Table of n, a(n) for n = 1..5000</a>
%t A157345 lst={};Do[If[Plus@@Last/@FactorInteger[n]==2,a=Length[First/@FactorInteger[n]];If[a==2,b=First/@FactorInteger[n];c=b[[1]];d=b[[2]];If[ !PrimeQ[2*c+1]&&!PrimeQ[2*d+1],AppendTo[lst,n]]]],{n,7!}];lst
%t A157345 With[{nn=50},Take[Union[Times@@@Subsets[Select[Prime[Range[nn]], !PrimeQ[ 2#+1]&],{2}]],nn]] (* _Harvey P. Dale_, May 04 2015 *)
%Y A157345 Cf. A001358, A005384, A111206, A157342, A006881, A157344.
%K A157345 nonn
%O A157345 1,1
%A A157345 _Vladimir Joseph Stephan Orlovsky_, Feb 27 2009