program fractii;

var
  n, v: longint;
  f: text;

function EsteIreductibil(x, y: longint): boolean;
var i: longint;
begin
  EsteIreductibil := true;
  for i := 2 to n do begin
    if (x mod i = 0) and (y mod i = 0) then begin
      EsteIreductibil := false;
      Break;
    end;
  end;
end;

var
  i, j: longint;

begin
  Assign(f, 'fractii.in');
  Reset(f);
  Read(f, n);
  Close(f);
  for i := 1 to n do begin
    for j := 1 to n do begin
      if EsteIreductibil(i, j) then inc(v);
    end;
  end;
  Assign(f, 'fractii.out');
  Rewrite(f);
  Write(f, v);
  Close(f);
end.