OFFSET
1,8
COMMENTS
Matrices: 1
X 1 {{1}}
2 X 2 {{1, 1}, {1, 0}}
3 X 3 {{1, 1, 1}, {1, 0, 1}, {1, 1, 0}}
4 X 4 {{1, 1, 1, 1}, {1, 0, 1, 0}, {1, 1, 0, 0}, {1, 0, 0, 0}}
5 X 5 {{1, 1, 1, 1, 1}, {1, 0, 1, 0, 1}, {1, 1, 0, 0, 1}, {1, 0, 0, 0, 1}, {1, 1, 1, 1, 0}}
6 X 6 {{1, 1, 1, 1, 1, 1}, {1, 0, 1, 0, 1, 0}, {1, 1, 0, 0, 1, 1}, {1, 0, 0, 0, 1, 0}, {1, 1, 1, 1, 0, 0}, {1, 0, 1, 0, 0, 0}}
EXAMPLE
Triangle sequence:
{1},
{1, -1},
{-1, -1, 1},
{1, 3, 1, -1},
{1, -1, -4, -1, 1},
{-1, -1, 6, 8, 1, -1},
{-1, 3, 6, -7, -10, -1, 1},
{-1, 7, -6, -14, 8, 12, 1, -1}
MATHEMATICA
c[i_, k_] := Floor[Mod[i/2^k, 2]];
An[d_] := Table[If[Sum[c[n, k]*c[m, k], {k, 0, d - 1}] == 0, 1, 0], {n, 0, d - 1}, {m, 0, d - 1}]; Join[{{1}},
Table[CoefficientList[CharacteristicPolynomial[An[d], x], x], {d, 1, 20}]];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, Oct 24 2006
STATUS
approved