program fractii;
var n,i,j,q,a,b:integer; f,g:text;
begin
        assign(f,'fractii.in'); reset(f);
        assign(g,'fractii.out');        rewrite(g);
        read(f,n);
        q:=n*2-1;
        for i:=2 to n do
        for j:=2 to n do
        begin
        a:=i;   b:=j;
        while (a<>b) do
        if a>b then a:=a-b
                else b:=b-a;
        if (a=1) then q:=q+1;
        end;
        write(g,'q= ',q);
        close(f);       close(g);
end.