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