program ciur;
var v:array[2..2000000] of byte;
    i,j,n:longint;
    f,g:text;
 begin
  assign(f,'ciur.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(g,'ciur.out');
  rewrite(g);
  for i:=2 to trunc(sqrt(n)) do
  if v[i]=0 then
  for j:=2 to n div i do
    v[i*j]:=1;
   j:=0;
  for i:=2 to n-1 do
        if v[i]=0 then
                inc(j);
  writeln(g,C);
   close(g);
  end.