var n,i,j,a,b,s :longint;
    f,g :text;
    x:byte;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
for i:= 1 to n do
  for j :=1 to n do
    begin
    a:=i;
    b:=j;
    while a<>b do
      if a>b then
        a:=a-b
      else
        b:=b-a;
     if a=1 then s:=s+1;
    end;
write(g,s);
close(g);
end.