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