var i,n,j,a,b,cn:longint;
    f,g:text;
begin
     assign(f,'fractii.in');
     assign(g,'fractii.out');
     reset(f);
     rewrite(g);
     readln(f,n);
     for i:=1 to n do
         for j:=1 to n do
             begin
                  a:=i;
                  b:=j;
                  while a<>b do
                        if a>b then a:=a-b
                               else b:=b-a;
                  if a=1 then inc(cn);
             end;
     write(g,cn);
     close(f);
     close(g);
end.