---

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