findFactor :: Int -> Int -> Int
findFactor n _ = head [ n `div` i
                      | i <- [2 .. n]
                      , n `mod` i == 0]
                      
main :: IO ()
main = do
    [n, k] <- mapM readIO . words =<< getLine
    print $ findFactor n k