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

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

Offset

1,1

Comments

A 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:
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
0 1 2 0 1 2

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. A204428, A204263.

Sequence in context: A130027 A116949 A359244 * A178146 A305435 A350658

Adjacent sequences: A204424 A204425 A204426 * A204428 A204429 A204430

Keyword

nonn,tabl

Author

Clark Kimberling, Jan 15 2012

Status

approved