var
i,j,n,i1,j1,nr: longint;
f,g: text;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,n);
nr:=0;
for i:=1 to n do begin i1:=i ;
  for j:=1 to n do   begin j1:=j;
     while i1<>j1 do
            if i1>j1 then i1:=i1-j1
                     else j1:=j1-i1;
     if i1=0 then inc(nr);
                       end;
                       end;
write(g,nr);
close(f);
close(g);
end.