4 lines
94 B
Perl
4 lines
94 B
Perl
use ntheory qw/divisor_sum/;
|
|
for (1..33550336) {
|
|
print "$_\n" if divisor_sum($_) == 2*$_;
|
|
}
|