uses crt;
var n,p,q,nr,a,b:longint; f,t:text;
begin
     clrscr;
     assign(f,'fractii.in');
     reset(f);
     assign(t,'fractii.out');
     rewrite(t);
     read(f,n);
     For p:=1 to n DO
     For q:=1 to n DO
     begin
     a:=p;
     b:=q;
     while a=b Do
     IF a>b THEN a:=a-b
     ELSE b:=b-a;
     IF b<>1 THen
     nr:=nr+1;
     end;
     write(t,nr);
end.