<>;$/=$"; for(sort{$a-$b}<>){ ($x=++$d[$i=$_])>$%and$%=$x; $x>$d[$i]and$d[$i]=$x while($i+=$_)<=1e6 } print$%