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