var a, b, c, n:longint;
begin
assign(input,'fractii.in');
assign(output,'fractii.out');
reset(input);
rewrite(output);
 readln(n);
  a:=1; c:=0;
  for a:=1 to n do
    for b:=1 to n do
     begin
      if b>a then if b mod a<>0 then inc(c);
      if a>b then if a mod b<>0 then inc(c);
     end;
   writeln(2n-1+c);
close(input);
close(output);
end.