#![allow(unused_imports)]
#![allow(non_snake_case)]
use std::collections::HashMap;

#[allow(unused_macros)]
macro_rules! read {
    ([$t:ty] ; $n:expr) =>
        ((0..$n).map(|_| read!([$t])).collect::<Vec<_>>());
    ($($t:ty),+ ; $n:expr) =>
        ((0..$n).map(|_| read!($($t),+)).collect::<Vec<_>>());
    ([$t:ty]) =>
        (rl().split_whitespace().map(|w| w.parse().unwrap()).collect::<Vec<$t>>());
    ($t:ty) =>
        (rl().parse::<$t>().unwrap());
    ($($t:ty),*) => {{
        let buf = rl();
        let mut w = buf.split_whitespace();
        ($(w.next().unwrap().parse::<$t>().unwrap()),*)
    }};
}

#[allow(dead_code)]
fn rl() -> String {
    let mut buf = String::new();
    std::io::stdin().read_line(&mut buf).unwrap();
    buf.trim_end().to_owned()
}

trait IteratorExt: Iterator + Sized {
    fn vec(self) -> Vec<Self::Item> {
        self.collect()
    }
}
impl<T: Iterator> IteratorExt for T {}

fn main() {
    let n = read!(usize);
    let (a, b, c) = read!(usize, usize, usize);

    let lcm_ab = lcm(a, b);
    let lcm_bc = lcm(b, c);
    let lcm_ca = lcm(c, a);
    let lcm_abc = lcm(lcm_ab, c);

    println!("{}", n/a + n/b + n/c - n/lcm_ab - n/lcm_bc - n/lcm_ca + n/lcm_abc);
}

fn gcd(mut a: usize, mut b: usize) -> usize {
    while b != 0 {
        let r = a%b;
        a = b;
        b = r;
    }
    a
}

fn lcm(a: usize, b: usize) -> usize {
    let gcd = gcd(a, b);
    a * b / gcd
}