program pf;
var  n,p,q,i,k,max:longint;ok:boolean;f,g:text;
begin
    assign(f,'fractii.in');reset(f);
    assign(g,'fractii.out');rewrite(g);readln(f,n);
    for p:=1 to n do begin
     max:=0;
     for q:=1 to n do begin
     ok:=true;
     if q>p then max:=q
              else max:=p;
     for i:=1 to max do
     if ((p mod i=0)or (q mod i=0))and ((p mod q=0)or(q mod p=0))and(p<>1)and(q<>1) then ok:=false;
      if ok then k:=k+1; end;
     end;
     write(g,k);close(f);close(g);
end.