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

Function cmmdc(a,b : longint): longint;
Begin
     if a mod b =0 then cmmdc:=b
        else cmmdc:=cmmdc(b,a mod b);
end;

Begin
     n:=10;
     {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);}
     writeln('k= ',k);
     readln;
end.