(defun judge (k)
  (loop while (zerop (mod k 2))
     do
       (setq k (floor k 2)))
  (loop while (zerop (mod k 5))
     do
       (setq k (floor k 5)))
  (/= k 1))


(defun main ()
  (let ((a (read))
        (b (read)))
    (let ((g (gcd a b)))
      (let ((b (/ b g)))
        (if (and (/= b 1)
                 (judge b))
            (princ "Yes")
            (princ "No")))))
  (fresh-line))

(main)