RosettaCodeData/Task/Proper-divisors/Mathematica/proper-divisors-1.math
2023-07-01 13:44:08 -04:00

1 line
55 B
Text

ProperDivisors[n_Integer /; n > 0] := Most@Divisors@n;