program Fractii;
var t:text;p,q,c,n,a,b,r:integer;
begin
 assign(t,'C:\Users\phoenix\Desktop\NewFolder\n.txt');
 reset(t);
 read(t,n);
 c := 0;
 for p := 1 to n do
  for q := 1 to n do
  begin
  a := p;
  b := q;
  if b > a then
  begin
   r := a;
   a := b;
   b := r;
  end;
  r := a mod b;
  while (r <> 0) do
  begin
   a := b;
   b := r;
   r := a mod b;
  end;
  if b = 1 then c := c + 1;
  end;
 assign(t,'C:\Users\phoenix\Desktop\NewFolder\Numar.txt');
 rewrite(t);
 write(t,c);
 close(t);
end.