var x,y,n,i,j,nr:integer;  f,t:text;
begin
     assign(f,'fractii.in');
     reset(f);
     readln(f,n);
     close(f);
     assign(t,'fractii.out');
     rewrite(t);
     FOR i:=1 to n DO
     FOR j:=1 to n DO
     begin
     x:=i;
     y:=j;
     while x<>y DO
     IF x>y THEN
     x:=x-y
     ELSE
     y:=y-x;
     IF x=1 THEN
     nr:=nr+1;
     end;
     write(t,nr);
     close(t);
     end.