var ok:array[2..30000] of boolean;
i,j,n,k:LONGINT; f,g:text;
begin
assign(f, 'ciur.in');
reset(f);
readln(f,n);
assign(g,'ciur.out');
rewrite(g);
fillchar(ok,sizeof(ok),true);     k:=0;
for i:=2 to n do
if ok[i] then
   begin
     j:=2;  k:=k+1;
     while i*j<=n do begin
     ok[i*j]:=false;
     inc(j);
     end;
 end;
     write(g,k);
 close(f);
 close(g);
     end.