module Main where
 
main :: IO ()
main = getIntList >>= putStrLn . solve
 
solve :: [Int] -> String
solve [a, b] = judge . filter p . factorize $ b `div` x
  where
  x = gcd a b
  p n | n == 1    = False
      | n == 2    = False
      | n == 5    = False
      | otherwise = True
 
judge :: [a] -> String
judge [] = "No"
judge _  = "Yes"
 
factorize :: Int -> [Int]
factorize n = go n 2
  where
  go x i | i * i > x      = [x]
         | x `mod` i == 0 = i : go (x `div` i) i
         | otherwise      = go x $ i + 1
 
getIntList :: IO [Int]
getIntList = map read . words <$> getLine