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