OFFSET
1,1
COMMENTS
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), ...
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 27 2009
STATUS
approved