A204423 Infinite matrix: f(i,j)=(2i+j mod 3), by antidiagonals.

0, 1, 2, 2, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 2, 0, 1, 2, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 2, 0, 1, 2, 0, 1, 2, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2

Offset

1,3

Comments

An infinite block matrix over {0,1,2}. See A204263 for a guide to related matrices and permanents.

Links

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

Example

Northwest corner:
0 1 2 0 1 2
2 0 1 2 0 1
1 2 0 1 2 0
0 1 2 0 1 2
2 0 1 2 0 1
1 2 0 1 2 0

Mathematica

f[i_, j_] := Mod[2 i + j, 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}]]      (* A204423 *)
Permanent[m_] :=
  With[{a = Array[x, Length[m]]},
   Coefficient[Times @@ (m.a), Times @@ a]];
Table[Permanent[m[n]], {n, 1, 22}]   (* A204424 *)

Crossrefs

Cf. A204424, A204263.

Sequence in context: A292274 A317675 A332902 * A112170 A366475 A259976

Adjacent sequences: A204420 A204421 A204422 * A204424 A204425 A204426

Keyword

nonn,tabl

Author

Clark Kimberling, Jan 15 2012

Status

approved