3 lines
132 B
Text
3 lines
132 B
Text
isperfect := proc(n) return evalb(NumberTheory:-SumOfDivisors(n) = 2*n); end proc:
|
|
isperfect(6);
|
|
true
|