n,a,b,c,=$<.read.split.map &:to_i
p n/a+n/b+n/c-n/(a*b)-n/(b*c)-n/(c*a)+n/(a*b*c)