var f,g:text;
a,b,i,j,n:longint;
ct:int64;
begin
Assign(f,'fractii.in');Reset(f);
Assign(g,'fractii.out');Rewrite(g);
Readln(f,n);ct:=0;
For i:=1 to n do
For j:=i+1 to n do begin
a:=i;b:=j;
Repeat
If a>b then a:=a-b
else b:=b-a;
until a=b;
If (a=1) then ct:=ct+1;end;
ct:=2*ct+1;
write(g,ct);
close(g);close(f);end.