RosettaCodeData/Task/Tau-number/Mathematica/tau-number.math

2 lines
69 B
Plaintext

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