program ciurul_lui_eratostene;
const MAX=2000000;
var f,g:text; i,j,n,S:longint; prim:array[1..MAX] of byte;
begin
Assign(f,'ciur.in'); Reset(f);
Assign(g,'ciur.out');Rewrite(g);
Read(f,n); Close(f);
For i:=2 to n do prim[i]:=1;
i:=2;
While i<=n do
 begin
 While (prim[i]=0)and(i<=n) do inc(i);
 j:=2;
 Repeat
  prim[i*j]:=0;
  inc(j);
 Until i*j>n;
 inc(i);
 end;
S:=0;
For i:=2 to n do
 If prim[i]=1 then inc(S);
Write(g,S); Close(g);
end.