program ciurul;
   var n,i,j,k:longint;
       a:array [1..2000000] of boolean;
       fi,fo:text;
begin
  assign(fi,'ciur.in');
   reset(fi);
  assign(fo,'ciur.out');
   rewrite(fo);
  read(fi,n);
  for i:=2 to n div 2 do begin
                    j:=2*i;
                     while j<=n do begin
                                 if a[j]=false then a[j]:=true;
                                      j:=j+i;
                                       end;
                     end;
  for i:=2 to n do
   if a[i]=false then inc(k);
     write(fo,k);
  close(fo);
end.