RosettaCodeData/Task/Perfect-numbers/GAP/perfect-numbers.gap

3 lines
79 B
Plaintext

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