import Control.Applicative ((<$>))

solve :: Integral a => a -> a -> a
solve n d = let g = gcd n d in div n g - 1

main :: IO ()
main = do
    [n, d] <- fmap read . words <$> getLine :: IO [Int]
    print $ solve n d