program ciur;
type vector=array [1..2000000] of boolean;
var f1,f2:text;
    v:vector;
    n,i,p,j:longint;
begin
assign(f1,'ciur.in');
reset(f1);
read(f1,n);
close(f1);
assign(f2,'ciur.out');
rewrite(f2);
p:=0;
for i:=1 to n do
  v[i]:=true;
for i:=2 to n  do
begin
if v[i] then
  begin
    begin
    j:=i;
    p:=p+1;
    repeat
      j:=j+i;
      v[j]:=false;
    until j>n;
    end;
  end;
end;
write(f2,p);
close(f2);
end.