A179079 Permanent of the n X n matrix whose (i,j)-element is (i+j-1) modulo 3.

1, 4, 9, 34, 192, 1032, 6936, 62496, 530712, 5005152, 61710336, 707802624, 8714718720, 133983590400, 1938416832000, 29588291712000, 544216485888000, 9509523337728000, 173318541516288000, 3711395156281344000, 76000261811572224000, 1610876530967703552000, 39351073330327191552000

Offset

1,2

Links

Table of n, a(n) for n=1..23.

Eric Weisstein's World of Mathematics, Permanent

Maple

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

Mathematica

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}]

Crossrefs

Cf. A010551.

Sequence in context: A149136 A358411 A006392 * A084449 A182144 A182723

Adjacent sequences: A179076 A179077 A179078 * A179080 A179081 A179082

Keyword

nonn

Author

John W. Layman, Jan 04 2011

Status

approved