var
    i, m, p, n, np : longint;
    a : array [1..2000000] of byte;
  fi, fo : text;
begin
    assign (fi, 'ciur.in'); reset (fi);
  assign (fo, 'ciur.out'); rewrite (fo);
    read (fi, n);
    for i := 1 to n do
    a[i] := 1;
  for p := 2 to n do
    if a[p] = 1 then { Numarul nu este eliminat din sir. }
        begin
        m := 2*p;
          while m <= n do
          begin
              a[m] := 0; { Eliminam multiplul din sir. }
                  m := m+p;  { Trecem la multiplul urmator. }
          end;
      end;
  for i := 2 to n do
    if a[i] = 1 then
      inc(np);
  write (fo, np);
  close (fo);
end.