import Control.Monad
import Control.Applicative

solve :: Integral a => a -> a -> a -> a -> a
solve n a b c = t1 - t2 + t3
    where
        t1 = (n `div` a) + (n `div` b) + (n `div` c)
        t2 = (n `div` (lcm a b)) + (n `div` (lcm b c)) + (n `div` (lcm c a))
        t3 = (n `div` (lcm (lcm a b) c))
    
main = do
    n <- readLn
    [a, b, c] <- map read . words <$> getLine
    putStrLn $ show $ solve n a b c