---

var
  k, l, m, n, d, i, ans: Longint;
begin
  ReadLn(k, l, m, n, d);
  ans := 0;
  for i := 1 to d do
    if (i mod k = 0) or (i mod l = 0) or (i mod m = 0) or (i mod n = 0) then
      ans := ans + 1;
  WriteLn(ans); 
end.