program fractii;
  uses crt;

  function cmmdc(a, b: qword): qword;
  begin
    while (a<>b) do begin
                      if a>b then a:=a-b
                             else b:=b-a;
                     end;
    cmmdc:=a;
  end;

  var p, q, n, i, j: word;
      Fi, Fo: text;
      rez: qword;
begin clrscr;
      Assign(Fi, 'fractii.in');
      Reset(Fi);
      ReadLn(Fi, n);
      Close(Fi);
      for i:=1 to n do
           for j:=1 to n do
                if cmmdc(i, j)=1 then inc(rez);
      Assign(Fo, 'fractii.out');
      Rewrite(Fo);
      WriteLn(Fo, rez);
      Close(Fo);
end.