RosettaCodeData/Task/Semiprime/Mathematica/semiprime-2.math
2015-02-20 09:02:09 -05:00

2 lines
60 B
Text

semiPrimeQ[#] & /@ Range[100];
Position[%, True] // Flatten