program fractii;
var n,m,i,j:longint;
    f:text;
function cmmdc (a,b:byte):byte;
begin
 if a=b then cmmdc:=a
        else
         if a>b then cmmdc:=cmmdc(a-b,b)
                else cmmdc:=cmmdc(a,b-a);
end;
begin
 assign (f,'fractii.in');
 reset (f);
 readln (f,n);
 close (f);
 assign (f,'fractii.out');
 rewrite (f);
 m:=0;
 for i:=1 to n do
  for j:=1 to n do
   if cmmdc (i,j)=1 then inc (m);
 write (f,m);
 close (f);
end.