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