let inline isZero n = n=LanguagePrimitives.GenericZero
let rec gcd a b = if isZero b then a else gcd b (a%b)
let lcm a b = a/(gcd a b)*b
let f n a b c = n/a+n/b+n/c-n/(lcm a b)-n/(lcm b c)-n/(lcm c a)+n/(lcm (lcm a b) c)

let n = stdin.ReadLine() |> int64
let a = stdin.ReadLine().Split(' ') |> Array.map int64

f n a.[0] a.[1] a.[2] |> printfn "%d"