var f,g:text;
    xa1,xa2,xa3,x1,x2,x3,aux,n,i,j,p,q,r,nr:longint;
begin
  assign(f,'fractii.in'); reset(f);
  assign(g,'fractii.out'); rewrite(g);
  read(f,n);
  nr:=n;
  for i:=2 to n do
    begin
      for j:=1 to i-1 do
        begin
          p:=i;
          q:=j;
          r:=p mod q;
          while r<>0 do
            begin
              p:=q;
              q:=r;
              r:=p mod q;
            end;
          if q=1 then inc(nr);
        end;
      for j:=i+1 to n do
        begin
          p:=i;
          q:=j;
          r:=p mod q;
          while r<>0 do
            begin
              p:=q;
              q:=r;
              r:=p mod q;
            end;
          if q=1 then inc(nr);
        end;
    end;
  writeln(g,nr);
  close(f); close(g);
end.