let rec gcd a b =
    match b with
    | 0L -> a
    | _ -> gcd b (a % b)

let lcm a b = a / (gcd a b) * b

let calc (a,b,c) n =
        n / a + n / b + n / c
        - n / (lcm a b) - n / (lcm b c) - n / (lcm c a)
        + n / (lcm a (lcm b c))

stdin.ReadLine ()
    |> int64
    |> calc (stdin.ReadLine ()
             |> fun s -> s.Split ' '
             |> Array.map int64
             |> fun a -> (a.[0],a.[1],a.[2]))
    |> printfn "%d"