PerfectQ[i_Integer] := Total[Divisors[i]] == 2 i