var
i,k:integer;
begin
k:=0;
for i:=35 to 1000 do
if (i mod 5 = 0) and (i mod 7 = 0) then k:=k+1;
writeln (k);
end.
