A204428 Permanent of the n-th principal submatrix of A204427.

2, 4, 9, 40, 192, 1032, 7824, 62496, 530712, 5619456, 61710336, 707802624, 9591229440, 133983590400, 1938416832000, 32061464064000, 544216485888000, 9509523337728000, 185772505605120000, 3711395156281344000

Offset

1,1

Links

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

Mathematica

f[i_, j_] := Mod[2 i + j + 2, 3];
m[n_] := Table[f[i, j], {i, 1, n}, {j, 1, n}]
TableForm[m[8]] (* 8x8 principal submatrix *)
Flatten[Table[f[i, n + 1 - i],
  {n, 1, 14}, {i, 1, n}]]        (* A204427 *)
Permanent[m_] :=
  With[{a = Array[x, Length[m]]},
   Coefficient[Times @@ (m.a), Times @@ a]];
Table[Permanent[m[n]], {n, 1, 22}] (* A204428 *)

Crossrefs

Cf. A204227, A204263.

Sequence in context: A151891 A309340 A005204 * A162111 A241600 A162112

Adjacent sequences: A204425 A204426 A204427 * A204429 A204430 A204431

Keyword

nonn

Author

Clark Kimberling, Jan 15 2012

Status

approved