login
Products (semiprimes) of two distinct double-safe primes.
1

%I #2 Mar 31 2012 12:38:20

%S 253,517,1081,1837,3841,3949,7849,7909,8257,15829,16537,16873,22429,

%T 31669,33097,33793,44869,45397,46897,54109,59953,62029,63877,65197,

%U 66217,66517,67633,79717,83149,83677,84997,93817,94921,95833,108229

%N Products (semiprimes) of two distinct double-safe primes.

%C 253=11*23; 11 and 23 are double safe prime numbers; (11-1)/2=5; (5-1)/2=2(prime); (23-1)/2=11; (11-1)/2=5(prime), ...

%t 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[cx=(c-1)/2]&&PrimeQ[(cx-1)/2]&&PrimeQ[dx=(d-1)/2]&&PrimeQ[(dx-1)/2],AppendTo[lst,n]]]],{n,9!}];lst

%Y Cf. A001358, A005384, A005385, A006881, A007304, A066179, A111206, A157342, A157344, A157345, A157346, A157347, A157352, A157353, A157354, A157355

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Feb 27 2009