|
Search: id:A122185
|
|
|
| A122185 |
|
Cube of the Steinbach matrix as a characteric polynomial triangular array. |
|
+0
1
|
|
| 1, 1, -1, -1, -4, 1, -1, 4, 11, -1, 1, 4, -21, -23, 1, 1, -4, -31, 60, 42, -1, -1, -4, 41, 100, -171, -69, 1, -1, 4, 51, -140, -400, 381, 106, -1, 1, 4, -61, -180, 729, 1060, -823, -154, 1, 1, -4, -71, 220, 1158, -2136, -3032, 1561, 215, -1, -1, -4, 81, 260, -1687, -3612, 7721, 6887, -2874, -290, 1, -1, 4, 91, -300, -2316
(list; table; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
COMMENT
|
After finding the relationship of A[i,j]^2=Min[i,j] and I[n]-A[i,j] A[i,j]^3 suggested itself. Matrices: {{3, 2}, {2, 1}}, {{6, 5, 3}, {5, 4,2}, {3, 2, 1}}, {{10, 9, 7, 4}, {9, 8, 6, 3}, {7, 6, 4, 2}, {4, 3, 2,1}}, {{15, 14, 12, 9, 5}, {14, 13, 11, 8, 4}, {12, 11, 9,6, 3}, {9, 8, 6, 4, 2}, {5, 4, 3, 2, 1}}
|
|
REFERENCES
|
Peter Steinbach, "Golden Fields: A Case for the Heptagon", Mathematics Magazine, Vol. 70, No. 1, Feb. 1997.
|
|
FORMULA
|
A(i,j)^3-->P(n,k) P(n,k)->T(n,m)
|
|
EXAMPLE
|
{1},
{1, -1},
{-1, -4, 1},
{-1, 4, 11, -1},
{1, 4, -21, -23, 1},
{1, -4, -31, 60, 42, -1},
{-1, -4, 41, 100, -171, -69, 1},
{-1, 4, 51, -140, -400, 381, 106, -1}
|
|
MATHEMATICA
|
An[d_] := Table[If[n + m - 1 > d, 0, 1], {n, 1, d}, {m, 1, d}]; Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[MatrixPower[An[d], 3], x], x], {d, 1, 20}]]; Flatten[%]
|
|
CROSSREFS
|
Adjacent sequences: A122182 A122183 A122184 this_sequence A122186 A122187 A122188
Sequence in context: A124258 A001638 A133826 this_sequence A136680 A035589 A021247
|
|
KEYWORD
|
uned,tabl,sign
|
|
AUTHOR
|
Gary Adamson and Roger Bagula (qntmpkt(AT)yahoo.com), Oct 17 2006
|
|
|
Search completed in 0.002 seconds
|
