var f,g:text;
    u,v,j,i,r,nr,n:int64;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
nr:=n;
for i:=2 to n do
    for j:=1 to n do
        begin
             u:=i;
             v:=j;
             repeat
             r:=u mod v;
             u:=v;
             v:=r;
             until r=0;
             if u=1 then nr:=nr+1;
        end;
    writeln(g,nr);
    close(g);
    end.