program fractii;
var n,i,j,nr:integer;
function cmmdc(a,b:integer):integer;
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
     write('n=');
     readln(n);
     nr:=0;
     for i:=1 to n do
         for j:=1 to n do
             if (cmmdc(i,j)=1) then
                nr:=nr+1;
     writeln('nr=',nr);
     readln;
end.