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