Perl> 
print scalar localtime; 
$p = 500257; 
$p = nextprime ++$p for 41562 .. 1000000; 
print scalar localtime; 
print $p;;

Tue Nov 14 04:36:02 2006
Tue Nov 14 04:37:07 2006
15485863