This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A111194 #8 Aug 24 2024 09:46:18
%S A111194 1,1,84,1397520,5314794912000,4855173934730716800000,
%T A111194 1090093558153665322315192780800000,
%U A111194 60907190511553979457004412118419080463155200000
%N A111194 Permanent of the inverse Hilbert matrix.
%t A111194 Permanent[m_List] := With[{v = Array[x, Length[m]]}, Coefficient[Times @@ (m . v), Times @@ v]]; f[n_] := Block[{i = Inverse[Table[1/(i + j - 1), {i, n}, {j, n}]]}, Permanent[i]]; Table[ f[n], {n, 7}] (* _Robert G. Wilson v_, Oct 24 2005 *)
%o A111194 (J) NB. www.jsoftware.com
%o A111194 H =: % @: >: @: (+/~) @: i. @ x:
%o A111194 perm=: +/ .*
%o A111194 perm@%.@H n
%Y A111194 Cf. A005249 = determinant of inverse Hilbert matrix; and A092326 = (permanent/determinant) of inverse Hilbert matrix.
%K A111194 nonn
%O A111194 0,3
%A A111194 _Roger Hui_, Oct 22 2005