program fractii;
var f:text;
    p,k,n,nr,a,b:longint;
begin
assign(f,'fracti.in');reset(f);
read(f,n);close(f);
nr:=1+2*(n-1);
for p:=2 to n do
     for k:=2 to n-1 do begin
           a:=p;b:=k;
           while a<>b do
               if a>b then a:=a-b
                      else b:=b-a;
           if a=1 then nr:=nr+2;
           end;
assign(f,'fracti.out');rewrite(f);
write(f,nr);close(f);
end.