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