print$n/(grep!($n%$_),2..($n=<>))[0]