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

3 lines
79 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
Filtered([1 .. 10000], n -> Sum(DivisorsInt(n)) = 2*n);
# [ 6, 28, 496, 8128 ]