import math, sequtils, strutils

let
  n = stdin.readLine.parseInt
  abc = stdin.readLine.split.map parseInt
  a = abc[0]
  b = abc[1]
  c = abc[2]
var
  result = 0
  
for x in abc:
  result.inc n div x
  
result.dec n div lcm(a, b)
result.dec n div lcm(a, c)
result.dec n div lcm(b, c)
result.inc n div lcm abc

echo result