Var f,g:text;
    v:array [1..2000000] of boolean;
    n,i,j,s:longint;

Begin
assign(f, 'ciur.in');reset(f);
assign(g, 'ciur.out');rewrite(g);
read(f, n);
for i:=2 to trunc(sqrt(n)) do
  if v[i]=true then
    repeat
      begin
        j:=i*i+ki;
        v[j]:=false;
        inc(k);
for i:=1 to n do
  if v[i]=true then inc(s);
write(g, s);
close(f);
close(g);
End.