program fractii;

var a,b,s,s1,a1,b1,r:longint;
   
 n:longint;
    
f,g:text;


function cmmdc(a1,b1:longint):longint;

var r:longint;

begin
     
repeat
           
r:=a1 mod b1;
        
   a1:=b1;
         
  b1:=r;
    
 until r=0;
    
 cmmdc:=a1;

end;


begin
  
   assign(f,'fractii.in');
     assign(g,'fractii.out');
    
 reset(f);
     rewrite(g);
    
 read(f,n);

  s:=n*n-(n-1);

 for a:=1 to n do

  begin

    s1:=0;

      for b:=2 to a-1 do

        begin

           a1:=a;

              b1:=b;
              if ((a1+b1)mod 2=0)and((a1*b1) mod 2=0) then inc(s1)
              else
                if (cmmdc(a1,b1)<>1) then inc(s1);

     end;

  end;

 s:=s-s1;

  write(g,s);

   close(f);
     close(g);

end.