program cmmdc;
var m,n,i,j,x,count: longint;
    t: text;
Function cmmdc(m,n: longint): boolean;
begin
   cmmdc:=false;
   while m<>n do
     begin
       if m>n then m:=m-n
        else n:=n-m;
     end;
   if m=1 then cmmdc:=true;
end;
Begin
   assign(t,'fractii.in'); reset(t);
   read(t,x);
   close(t);
   count:=0;
   for i:=1 to x do
     for j:=1 to x do
       if cmmdc(i,j) then count:=count+1;
   assign(t,'fractii.out'); rewrite(t);
   write(t,count);
   close(t);
end.