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.

A157344 Semiprimes that are the product of two distinct Sophie Germain primes.

This page as a plain text file.
%I A157344 #11 Feb 02 2018 02:53:12
%S A157344 6,10,15,22,33,46,55,58,69,82,87,106,115,123,145,159,166,178,205,226,
%T A157344 249,253,262,265,267,319,339,346,358,382,393,415,445,451,466,478,502,
%U A157344 519,537,562,565,573,583,586,655,667,699,717,718,753,838,843,862,865
%N A157344 Semiprimes that are the product of two distinct Sophie Germain primes.
%C A157344 6=2*3; 2 and 3 are Sophie Germain primes, 10=2*5; 2 and 5 are Sophie Germain primes, 15=3*5; 3 and 5 are Sophie Germain primes, ...
%H A157344 G. C. Greubel, <a href="/A157344/b157344.txt">Table of n, a(n) for n = 1..5000</a>
%t A157344 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 A157344 nn=100;With[{sgp=Select[Prime[Range[nn]],PrimeQ[2#+1]&]},Take[ Union[ Select[ Times @@@ Subsets[sgp,{2}],PrimeOmega[#]==2&]],nn]] (* _Harvey P. Dale_, Nov 22 2012 *)
%Y A157344 Cf. A001358, A005384, A111206, A157342, A006881.
%K A157344 nonn
%O A157344 1,1
%A A157344 _Vladimir Joseph Stephan Orlovsky_, Feb 27 2009