program erathostenes;
var i,j,n,x,nr:longint;
    v:array[1..200001] of 0..1;
    f,g:text;
begin
assign(f,'ciur.in'); assign(g,'ciur.out');
reset(f); rewrite(g);
readln(f,n);
for i:=2 to n do
 v[i]:=0;
for i:=2 to n do
 if v[i]=0 then
 begin
  nr:=nr+1;
  j:=i*i;
  while j<=n do
  begin
   v[j]:=1;
   j:=j+i;
  end;
 end;
write(g,nr);
close(f); close(g);
end.