main = do
 [n,d] <- map read . words <$> getLine
 print (pyon n d)

pyon n d = div n (gcd n d) - 1