program ffff;
var
f:text;
n,i,j,mi,x,y:longint;
begin
 assign(f,'fractii.in');
 reset(f);
 readln(f,n);
 close(f);
 for i:=1 to n do
  for j:=1 to n do
   if (j=1) then inc(mi)
   else
   begin
    x:=i;
    y:=j;
    while x<>y do
    if x>y then x:=x-y
    else
    y:=y-x;
    if y=1 then inc(mi);
   end;
 assign(f,'fractii.out');
 rewrite(f);
 write(f,mi);
 close(f);
 end.