OFFSET
1,1
EXAMPLE
6=2*3; 2 and 3 are not safe primes.
26=2*13; 2 and 13 are not safe primes.
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[(c-1)/2]&&!PrimeQ[(d-1)/2], AppendTo[lst, n]]]], {n, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 27 2009
STATUS
approved