login
A157355
Products of 3 distinct not safe primes.
2
78, 102, 114, 174, 186, 222, 246, 258, 318, 366, 402, 426, 438, 442, 474, 494, 534, 582, 606, 618, 646, 654, 663, 678, 741, 754, 762, 786, 806, 822, 834, 894, 906, 942, 962, 969, 978, 986, 1038, 1054, 1066, 1086, 1102, 1118, 1131, 1146, 1158, 1178, 1182
OFFSET
1,1
COMMENTS
78=2*3*13; 2,3 and 13 are not safe prime numbers,...
MATHEMATICA
lst={}; Do[If[Plus@@Last/@FactorInteger[n]==3, a=Length[First/@FactorInteger[n]]; If[a==3, b=First/@FactorInteger[n]; c=b[[1]]; d=b[[2]]; e=b[[3]]; If[ !PrimeQ[(c-1)/2]&&!PrimeQ[(d-1)/2]&&!PrimeQ[(e-1)/2], AppendTo[lst, n]]]], {n, 7!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved