<>;map{$\+=$-=($.=++$d[$i=$_])-$\;$.<$d[$i]or$d[$i]=$.while($i+=$_)<=1e6}sort{$a-$b}glob<>;print