program fractii;
var f:text;
    n,i,j,a,b,k:longint;
begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  k:=0;
  for i:=1 to n do
    for j:= 1 to n do
      begin
        a:=i; b:=j;
        while not((a=0) or (b=0)) do
          if a>b then a:=a-b else b:=b-a;
        if (a=1) or (b=1) then k:=k+1;
      end;
  assign(f,'fractii.out');
  rewrite(f);
  writeln(f,k);
  close(f);
end.