<>;map{$%=$=if($==++$d[$i=$_])>$%;$=<$d[$i]or$d[$i]=$=while($i+=$_)<=1e6}sort{$a-$b}glob<>;print$%