RosettaCodeData/Task/Perfect-numbers/GAP/perfect-numbers.gap
2023-07-01 13:44:08 -04:00

2 lines
79 B
Text

Filtered([1 .. 10000], n -> Sum(DivisorsInt(n)) = 2*n);
# [ 6, 28, 496, 8128 ]