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