Help for this page
use warnings; use strict; ... $n = $key +1; } print "$sum_total\n";
use Math::Prime::Util::GMP qw/sigma/; print grep( { sigma($_)>2*$_ } 12 .. 28123 )."\n"; __END__ 6965