RosettaCodeData/Task/Semiprime/Mathematica/semiprime-2.math

3 lines
60 B
Plaintext

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