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 A204236 #13 Mar 03 2024 12:43:24
%S A204236 1,11,219,8353,501441,43953387,5289422019,837277689897,
%T A204236 168675250704201,42143281220724723,12789052583333211963,
%U A204236 4633606346714879986017,1975686665736618600155505,979311369588813584600206491,558412149326539306097214853299,362948190926517939498607117046169
%N A204236 Permanent of the n-th principal submatrix of A204154.
%t A204236 f[i_, j_] := Max[2 i - j, 2 j - i]; (* A204154 *)
%t A204236 m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]
%t A204236 TableForm[m[6]] (* 6x6 principal submatrix *)
%t A204236 Permanent[m_] :=
%t A204236 With[{a = Array[x, Length[m]]},
%t A204236 Coefficient[Times @@ (m.a), Times @@ a]];
%t A204236 Table[Permanent[m[n]], {n, 1, 14}] (* A204236 *)
%Y A204236 Cf. A204154.
%K A204236 nonn
%O A204236 1,2
%A A204236 _Clark Kimberling_, Jan 13 2012
%E A204236 a(15)-a(16) from _Pontus von Brömssen_, Mar 03 2024