var a,b,c,d,f,i,j: longint;

begin
  assign(input,'fractii.in');
  assign(output,'fractii.out');
  reset(input);
  rewrite(output);
  
  read(a);
  for i:=1 to a do
    for j:=1 to a do begin
      d:=i;
      f:=j;
      while d>0 do begin
        c:=f mod d;
        f:=d;
        d:=c;
      end;
      if f=1 then inc(b);
    end;
  write(b);
end.