var n,nr:longint;
    prim:array[1..2000000] of boolean;

procedure citire;
var f:text;
begin
assign(f,'ciur.in'); reset(f);
readln(f,n);
close(f);
end;

procedure ciur;
var i,j:longint;
begin

fillchar(prim,sizeof(prim),true);

for i:=2 to n do
    if prim[i] then
       begin
       inc(nr);
       j:=2;
       while i*j<=n do
             begin
             prim[i*j]:=false;
             inc(j);
             end;
       end;
end;

procedure rezolvare;
var g:text;
    i:longint;
begin
assign(g,'ciur.out'); rewrite(g);
writeln(g,nr);
close(g);
end;

begin
citire;
ciur;
rezolvare;
end.