A204434 -id:A204434 - cp's OEIS frontend

A204263 Symmetric matrix: f(i,j)=(i+j mod 3), by antidiagonals.

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

Offset: 1

Clark Kimberling, Jan 15 2012

A block matrix over {0,1,2}.  In the following guide to related matrices and permanents, Duvwxyz represents the matrix remaining after row 1 of the matrix Auvwxyz is deleted:
Matrix................Permanent of n-th submatrix
A204263=D204421.......A204265
A204267=D204263.......A204268
A204421=D204267.......A179079
A204423=D204425.......A204424
A204425=D204427.......A204426
A204427=D204423.......A204428
A204429=D204431.......A204430
A204431=D204433.......A204432
A204433=D204429.......A204434

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

G. C. Greubel, Table of n, a(n) for the first 100 antidiagonals, flattened

Cf. A204265.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Jan 15 2012

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

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

Cf. A204432, A204434, A204263.

f[i_, j_] := Mod[2 i + 2 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}]]

Definition corrected by Georg Fischer, Oct 25 2021

cp's OEIS Frontend

A204263 Symmetric matrix: f(i,j)=(i+j mod 3), by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

cp's OEIS Frontend

A204263 Symmetric matrix: f(i,j)=(i+j mod 3), by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A204433 Symmetric matrix: f(i,j) = (2*i + 2*j + 2) mod 3, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

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