OFFSET
1,1
REFERENCES
Jay Kappraff, Beyond Measure, A Guided Tour Through Nature, Myth and Number, World Scientific, 2002.
LINKS
J. Kappraff, D. Blackmore, and G. Adamson, Phyllotaxis as a Dynamical System: A Study in Number, In Symmetry in Plants edited by R.V. Jean and D. Barabe. Singapore: World Scientific. (1996).
EXAMPLE
Triangular array:
{2},
{1, -1},
{-4, 2, 1},
{4, -4, 2, -1},
{-16, 24, -16, 4, 1},
{16, -32, 28, -12, 3, -1},
{-64, 160, -176, 104, -36, 6, 1},
{64, -192, 256, -192, 88, -24, 4, -1}
MATHEMATICA
An[d_] := Table[If[n == d, 1, If[m == n + 1, 1, 0]], {n, 1, d}, {m, 1, d}];
Join[{{2}}, Table[CoefficientList[CharacteristicPolynomial[2*IdentityMatrix[d] + MatrixPower[An[d], -1], x], x], {d, 1, 20}]]
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Gary W. Adamson and Roger L. Bagula, Oct 20 2006
STATUS
approved