function cmmdc(x, y: longint): longint;
var r: longint;
begin
     while y<>0 do begin
           r:=x mod y;
           x:=y;
           y:=r;
     end;
     cmmdc:=x;
end;
var f: text;
    i, j, x, n: longint;
begin
{     assign(f, 'fractii.in');
     reset(f);}
     readln(n);
{     close(f);}
     x:=0;
     for i:=1 to n do
         for j:=1 to n do
             if cmmdc(i, j)=1 then
                inc(x);
     writeln(x);
end.