var
 f:text;
 n,p,q,k,a,b,r:longint;
 begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(f,'fractii.out');
  rewrite(f);
  for p:=1 to n do
   for q:=1 to n do
    begin
    a:=p;
    b:=q;
    r:=a mod b;
    while r<>0 do
    begin
     a:=b;
     b:=r;
     r:=a mod b;
    end;
    if b=1 then inc(K);
    end;
   write(f,k);
   close(f);
   end.