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 A179079 #12 Feb 16 2025 08:33:12 %S A179079 1,4,9,34,192,1032,6936,62496,530712,5005152,61710336,707802624, %T A179079 8714718720,133983590400,1938416832000,29588291712000,544216485888000, %U A179079 9509523337728000,173318541516288000,3711395156281344000,76000261811572224000,1610876530967703552000,39351073330327191552000 %N A179079 Permanent of the n X n matrix whose (i,j)-element is (i+j-1) modulo 3. %H A179079 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Permanent.html">Permanent</a> %p A179079 A179079 := proc(n) M := Matrix(n,n,(i,j) -> (i+j-1) mod 3) ; LinearAlgebra[Permanent](M) ; end proc: # _R. J. Mathar_, Jan 04 2011 %t A179079 Permanent[m_List] := With[{v = Array[x, Length[m]]}, Coefficient[Times @@ (m.v), Times @@ v]]; Table[Permanent[Table[Mod[i+j-1,3], {i,1,n}, {j,1,n}]], {n,1,25}] %Y A179079 Cf. A010551. %K A179079 nonn %O A179079 1,2 %A A179079 _John W. Layman_, Jan 04 2011