n,a,b,c,=$<.read.split.map &:to_i
p (1..n).count{|i|(i%a)*(i%b)*(i%c)<1}