program fractii;
var n,i,j,nr:integer;
    f1,f2:text;
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
     assign(f1,'fractii.in');
     reset(f1);
     readln(f1,n);
     close(f1);
     assign(f2,'fractii.out');
     rewrite(f2);
     nr:=0;
     for i:=1 to n do
         for j:=1 to n do
             if (cmmdc(i,j)=1) then
                nr:=nr+1;
     writeln(f2,nr);
     close(f2);
     readln;
end.