uses Crt;
var f :text;
    n, m, i, j, r, k:longint;
    egyx :boolean;


begin
  Clrscr;
  Assign(f, 'fractii.in');
  Reset(f);
  ReadLn(f, n);
  Close(f);
  r := 0;
  for i := 2 to n do
    for j := 2 to n do
      begin
        if j > i then m := i else m := j;
        k := 1;
        egyx := false;
        While (m <> k) and not (egyx) do
          begin
            inc(k);
            if (i mod k = 0) and (j mod k = 0) then egyx:=true;
          end;
        if not (egyx) then inc(r);
      end;
  Assign(f, 'fractii.out');
  ReWrite(f);
  r:=r+2*n-1;
  WriteLn(f, r);
  Close(f);
end.