Program cmmdc1;
var n,k,p,q: longint;
    f1,f2:text;

Function cmmdc(x,y : longint): longint;
Begin
     if x=y then cmmdc:=x
        else
            while x<>y do
            if x>y then x:=x-y
               else y:=y-x;
     cmmdc:=x;
end;

Begin
     assign(f1, 'fractii.in');
     assign(f2, 'fractii.out');
     reset(f1);
     readln(f1,n);
     close(f1);
     k:=0;
     for p:=1 to n do
         for q:=1 to n do
             if cmmdc(p,q)=1 then
                inc(k);
     rewrite(f2);
      writeln(f2,k);
     close(f2);
end.