RosettaCodeData/Task/Tau-number/Mathematica/tau-number.math
2023-07-01 13:44:08 -04:00

1 line
69 B
Text

Take[Select[Range[10000], Divisible[#, Length[Divisors[#]]] &], 100]