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