getInts :: IO [Int]
getInts = map read . words <$> getLine 

main :: IO ()
main = do
  [n, a, b] <- getInts
  let
    da = div n a
    db = div n b
    dl = div n $ lcm a b
    ans = n - da - db + dl
  print ans