var i,j,n,k:integer;
        v:array[1..2000000]of boolean;
        f:text;


procedure ciur;
begin
k:=0;
fillchar(v,2000000,true);
        for i:=2 to n do
        if v[i]=true then begin inc(k);
                for j:=i+1 to n do
                if j mod i =0 then v[j]:=false;
        end;
end;


begin
assign(f,'ciur.in');
reset(f);
readln(f,n);
close(f);
ciur;
assign(f,'ciur.out');
rewrite(f);
writeln(f,k);
close(f);
end.