let sq =
    stdin.ReadLine ()
    |> int
    |> fun n -> seq { 1..n }

let calc =
    stdin.ReadLine ()
    |> fun s -> s.Split ' '
    |> Array.map int
    |> fun a -> fun n -> match (n % a.[0], n % a.[1], n % a.[2]) with
                         | (a,b,c) when a <> 0 && b <> 0 && c <> 0 -> 0
                         | _ -> 1

sq |> Seq.map calc |> Seq.sum |> printfn "%d"