Semiprime: Difference between revisions
m
→{{header|Mathematica}}
(Added Quackery.) |
|||
Line 1,224:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>semiPrimeQ[n_Integer] := Module[{factors, numfactors},
factors = FactorInteger[n] // Transpose;
numfactors = factors[[2]] // Total ;
numfactors == 2
]</lang>
Example use: find all semiprimes less than 100:
<lang Mathematica>semiPrimeQ[#] & /@ Range[100];
Position[%, True] // Flatten</lang>
{{
<pre>{4, 6, 9, 10, 14, 15, 21, 22, 25, 26, 33, 34, 35, 38, 39, 46, 49, 51,
55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95}</pre>
| |||