program fractii;
VAR n,aux1,aux2,i,j,c:longint;
        cmmdc:integer;
        f:text;
Begin
        assign(f,'fractii.in'); Reset(f);
        readln(f,n);
        close(f);
        assign(f,'fractii.out'); Rewrite(f);
        Begin
                      for i:=1 to n do
                                for j:=1 to n do begin
                                        aux1:=i;
                                        aux2:=j;
                                        if (i=1) or (j=1) then inc(c)
                                                else begin
                                                while aux1<>aux2 do begin
                                                        if aux1>aux2 then
                                                                aux1:=aux1-aux2;
                                                        if aux2>aux1 then
                                                                aux2:=aux2-aux1;
                                                        end;
                                                cmmdc:=aux1;
                                                if cmmdc=1 then inc(c);
                                                end;
                                                end;
                                                end;
        write(f,c);
        close(f);
end.