var f,g:text;
    nr,n,i,j:longint;

function ired(x,y:longint):boolean;
         begin
         while x<>y do
               if x>y then dec(x,y)
                      else dec(y,x);
         if x=1 then ired:=true
                else ired:=false;
         end;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
nr:=1;
for i:=1 to n-1 do
    for j:=i+1 to n do
        if ired(i,j) then inc(nr,2);
writeln(g,nr);
close(f);
close(g);
end.