program fractii;
var f,g:text;
    x,n,sus,jos,z,v,w:longint;
begin
        assign(f,'fractii.in');  reset(f);
        assign(g,'fractii.out');        rewrite(g);
        read(f,n);
        x:=0;
        for jos:=1 to n do
        for sus:=1 to n do
        if (jos=1) or (sus=1) then x:=x+1
                 else
                 begin
                 v:=jos;
                 w:=sus;
                 while w<>v do
                 begin
                 if w>v then w:=w-v;
                 if v>w then v:=v-w;
                 end;
                 if v=1 then x:=x+1;
                 end;
        write(g,x);
        close(f);       close(g);
end.