import strutils, math

proc input: string =
  while true:
    let t = stdin.readChar
    if t.isDigit: result.safeAdd t
    elif t == '\r': discard
    else: break

let
  N, a, b, c = input().parseInt
  abc = [a, b, c]
var
  cnt = 0

for i in 0 ..< abc.len:
  cnt += N div abc[i]
  let
    x = abc[i]
    y = abc[(i + 1) mod abc.len]
  cnt -= N div lcm(x, y)

cnt += N div lcm(a, lcm(b, c))
echo cnt