import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= print

solve :: [Int] -> Int
solve [n, _] = f 2
  where f d | d ^ 2 > n = 1
            | n `mod` d == 0 = n `div` d
            | otherwise = f (d + 1)