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