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