var f:text; n,i,j,x,y:integer;
begin
     assign(f,'fractii.in');
     reset(f);
     read(f,n);
     close(f);
     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 y=1 THEN
     nr:=nr+1;
     end;
     assign(f,'fractii.out');
     rewrite(f);
     write(f,nr);
     close(f);
end.