program ciur;
type vector=array [1..10000] of integer;
var f1,f2:text;
    v:vector;
    n,i,p,j:longint;
begin
assign(f1,'ciur.in');
reset(f1);
read(f1,n);
close(f1);
assign(f2,'ciur.out');
rewrite(f2);
for i:=1 to n do
  v[i]:=1;
for i:=2 to n  do
begin
if v[i]=1 then
  begin
    begin
    j:=i;
    p:=p+1;
    repeat
      j:=2*j;
      v[j]:=0;
    until j>n;
    end;
  end;
end;
write(f2,p);
close(f2);
end.