2 lines
49 B
Text
2 lines
49 B
Text
|
PerfectQ[i_Integer] := Total[Divisors[i]] == 2 i
|