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