program pf;
var  i,j,r,d,q,k,n,z:longint;ok:boolean;   f,g:text;
procedure fractii(d,q:longint;var r:longint);
begin
       r:= d mod q;
       while r<>0 do begin
       d:=q;
       q:=r;
       r:=d mod q;end;r:=q; end;
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
         ok:=true;  fractii(i,j,z);
       if (i=j) and (i>1) then ok:=false
                          else begin
        if (i>1) and (j>1) then
         if (i mod z=0) and (j mod z=0) and (z<>1)  then ok:=false;
          if ok then k:=k+1;
          end;end;end; write(g,k); close(f);close(g);
          end.