use Math::Pari qw(numdiv);

while( ++$i ) {
    $n += $i;
    $d = numdiv($n);
    last if $d > 500;
}

print "$n: $d\n";