var f,g:text;
    s:array[1..2000000] of boolean;
    n,i,k,nr:longint;
begin
     assign(f,'ciur.in'); reset(f);
     assign(g,'ciur.out'); rewrite(g);
     readln(f,n);
     fillchar(s,sizeof(s),true);
     for i:=3 to trunc(sqrt(n)) do
     begin
          k:=i;
          while k<=n do
          begin
               k:=k+i;
               s[k]:=false;
          end;
     end;
     nr:=0;
     for i:=1 to n do
          if (i mod 2<>0) and (s[i]=true) then inc(nr);
     writeln(g,nr);
     close(g);
end.