program problema1;  
var n,p,q:longint;
           nr:int64
    f,g:text;  
  function cmmdc(a,b:longint):longint;  
     begin  
      if a=b then  
                cmmdc:=a  
             else  
                if a>b then  
                       cmmdc:=cmmdc(a-b,b)  
                      else  
                         cmmdc:=cmmdc(a,b-a)  
     end;  
 begin  
 assign(f,'fractii.in');  
  assign(g,'fractii.out');  
 reset(f);  
  rewrite(g);  
       read(f,n);  
       nr:=0;  
  for p:=1 to n do  
   for q:=1 to n do  
        if cmmdc(p,q)=1 then  
                           nr:=nr+1;  
 
#   write(g,nr);  
#   close(f);  
#   close(g);  
#   readln;