program fractii;

var
  n, i, f, j, a, b, temp: integer;
  in_f, out_f: text;

begin
  assign(in_f, 'fractii.in');
  assign(out_f, 'fractii.out');
  reset(in_f);
  rewrite(out_f);
  readln(in_f, n);
  for i := 1 to n do 
    for j := 1 to n do
    begin
      b := j;
      a := i;
      while (b <> 0) do
      begin
        temp := b;
        b := a mod b;
        a := temp;
      end;
      if a = 1 then inc(f);
      
      
    end;
  
  write(out_f, f);
  close(out_f);
  
end.