$N=<>;
@x=sort{$a-$b}glob<>;
for$x(@x){
	$\+=$-=++$d[$x]-$\;
	for($i=2*$x;$i<=$x[-1];$i+=$x){
		$d[$i]+=$-=$d[$x]-$d[$i]
	}
}
print