program cmmdc;
var d, i, r, a, b, nr, n:longint;
    f, g:text;
  begin
    assign(f,'fractii.in'); reset(f);
    assign(g,'fractii.out'); rewrite(g);
    readln(f,n);
    for a:=1 to n do
      for b:=1 to n do
        begin
          d:=a;
          i:=b;
          r:=a mod b;
          while r>0 do
            begin
              d:=i;
              i:=r;
              r:=d mod i;
            end;
          if i=1 then nr:=nr+1;;
        end;
    writeln(g,nr);
    close(f);
    close(g);
  end.