program ciurul;
   var n,i,j,k,x: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);
   x:=trunc(sqrt(n));
  for i:=2 to x do begin
                    j:=i*i;
                     while j<=n do begin
                                  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.