program fractii;
  uses crt;

  function cmmdc(a, b: qword): qword;
  var t: qword;
  begin
    if a<b then begin t:=a; a:=b; b:=t; end;
    a:=a mod b;
    cmmdc:=a;
  end;

  var n, i, j: word;
      Fi, Fo: text;
      rez: qword;
begin clrscr;
      Assign(Fi, 'fractii.in');
      Reset(Fi);
      ReadLn(Fi, n);
      Close(Fi);
      rez:=0;
      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.