2 lines
55 B
Text
2 lines
55 B
Text
|
|
ProperDivisors[n_Integer /; n > 0] := Most@Divisors@n;
|
|
|
ProperDivisors[n_Integer /; n > 0] := Most@Divisors@n;
|