program fractii;
var n,nf:longint;
    a,b,i,j: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 n do
      begin
        a:=j;
        b:=i;
          while a<>b do
        if a>b then
          a:=a-b
        else
          b:=b-a;
      if a=1 then nf:=nf+1;
      end;
  writeln(g,nf);
  close(f);
  close(g);
end.