var u,n,i,j,k:integer;
  begin
  assign(input,'fractii.in');
  reset(input);
  read(input,n);   close(input); k:=sqr(n);
 for i:=1 to n do
 for j:=1 to n do
   begin
 for u:=2 to n do
 while i<>j do
   begin
   if i>j then i:=i-j
      else j:=j-i;
    end;
   if i<>u then k:=k-1;
  end;

assign(output,'fractii.out');
rewrite(output);
write(output,k);
close(output);

end.