|
%I #11 Jan 05 2019 23:15:16
%S 1,4,9,34,192,1032,6936,62496,530712,5005152,61710336,707802624,
%T 8714718720,133983590400,1938416832000,29588291712000,544216485888000,
%U 9509523337728000,173318541516288000,3711395156281344000,76000261811572224000,1610876530967703552000,39351073330327191552000
%N Permanent of the n X n matrix whose (i,j)-element is (i+j-1) modulo 3.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Permanent.html">Permanent</a>
%p 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 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 Cf. A010551.
%K nonn
%O 1,2
%A _John W. Layman_, Jan 04 2011
|
