program ciur;
var
 n,i,count,j:longint;
 v:array[1..2000000] of longint;
 f,g:text;
begin
 assign(f,'ciur.in');
 assign(g,'ciur.out');
 reset(f);
 read(f,n);
 close(f);
 for i:=2 to n do
  v[i]:=i;
 for i:=2 to n do
  begin
   if v[i]<>0 then
    begin
     inc(count);
     for j:=i+1 to n do
      if j mod v[i]=0 then
       v[j]:=0;
    end;
  end;
 rewrite(g);
 write(g,count);
 close(g);
end.