var i,k:integer;

begin
k:=0;
for i:=1 to 10000 do if (((i mod 4) <> 0) and ((i mod 5) <> 0) and ((i mod 6) <> 0) and ((i mod 7) <> 0)) then Inc(k);
Writeln(k);
end.