login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A134655 Hadamard 3 X 3 matrix substitution using 3 X 3 games matrices: MA = {{0, 1, 0}, {0, 0, 1}, {1, 1, 0}}; ( minimal Pisot matrix); MB = {{0, 0, 1}, {0, 1, 0},{1, 0, -1}}; With substitution rule: m[n]->If[m[n - 1][[i, j]] == 0, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, If[m[n - 1][[i, j]] == 1, MA, MB]];. 0
1, 1, -1, -1, 2, 0, -1, -1, -1, 3, 4, -4, -7, 1, 5, 0, -1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,5

COMMENTS

Needs to be extended to the 27 X 27 level, but that is a long process by hand right now. This is the next Hadamard level up from the 2 X 2 -> 2^n to the 3 X 3 -> 3^n level matrices.

LINKS

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

FORMULA

MA = {{0, 1, 0}, {0, 0, 1}, {1, 1, 0}}; MB = {{0, 0, 1}, {0, 1, 0},{1, 0, -1}}; With substitution rule: m[n]->If[m[n - 1][[i, j]] == 0, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, If[m[n - 1][[i, j]] == 1, MA, MB]];

EXAMPLE

{1},

{1, -1},

{-1, 2, 0, -1},

{-1, -1, 3, 4, -4, -7, 1, 5, 0, -1}

MATHEMATICA

MA = {{0, 1, 0}, {0, 0, 1}, {1, 1, 0}}; MB = {{0, 0, 1}, {0, 1, 0}, {1, 0, -1}}; m[0] = {{1}} m[1] = {{0, 0, 1}, {0, 1, 0}, {1, 0, -1}}; m[2] = {{0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0, 1}, {0, 0, 1, 0, 0, 0, 0, 1, 0}, {1, 1, 0, 0, 0, 0, 1, 0, -1}}; m[n_] := Table[Table[If[m[n - 1][[i, j]] == 0, {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}, If[m[n - 1][[i, j]] == 1, MA, MB]], {j, 1, 3^(n - 1)}], {i, 1, 3^(n - 1)}]; TableForm[m[3]] Table[CharacteristicPolynomial[m[i], x], {i, 0, 2}] a = Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[m[i], x], x], {i, 0, 2}]]; Flatten[a] (* visualization*) Table[ListDensityPlot[m[i]], {i, 0, 3}]

CROSSREFS

Sequence in context: A024996 A187596 A263863 * A262124 A199954 A219987

Adjacent sequences:  A134652 A134653 A134654 * A134656 A134657 A134658

KEYWORD

uned,sign

AUTHOR

Roger L. Bagula, Jan 25 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 29 16:58 EST 2020. Contains 331347 sequences. (Running on oeis4.)