cp's OEIS Frontend

A122773 Triangular array, see Mathematica code.

%I A122773 #22 Jan 01 2023 13:47:29
%S A122773 2,1,-1,-4,2,1,4,-4,2,-1,-16,24,-16,4,1,16,-32,28,-12,3,-1,-64,160,
%T A122773 -176,104,-36,6,1,64,-192,256,-192,88,-24,4,-1,-256,896,-1408,1280,
%U A122773 -736,272,-64,8,1,256,-1024,1856,-1984,1376,-640,200,-40,5,-1,-1024,4608,-9472,11648,-9472,5312,-2080,560,-100,10,1,1024
%N A122773 Triangular array, see Mathematica code.
%D A122773 Jay Kappraff, Beyond Measure, A Guided Tour Through Nature, Myth and Number, World Scientific, 2002.
%H A122773 J. Kappraff, D. Blackmore, and G. Adamson, <a href="https://doi.org/10.1142/9789814261074_0017">Phyllotaxis as a Dynamical System: A Study in Number</a>, In Symmetry in Plants edited by R.V. Jean and D. Barabe. Singapore: World Scientific. (1996).
%e A122773 Triangular array:
%e A122773   {2},
%e A122773   {1, -1},
%e A122773   {-4, 2, 1},
%e A122773   {4, -4, 2, -1},
%e A122773   {-16, 24, -16, 4, 1},
%e A122773   {16, -32, 28, -12, 3, -1},
%e A122773   {-64, 160, -176, 104, -36, 6, 1},
%e A122773   {64, -192, 256, -192, 88, -24, 4, -1}
%t A122773 An[d_] := Table[If[n == d, 1, If[m == n + 1, 1, 0]], {n, 1, d}, {m, 1, d}];
%t A122773 Join[{{2}}, Table[CoefficientList[CharacteristicPolynomial[2*IdentityMatrix[d] + MatrixPower[An[d], -1], x], x], {d, 1, 20}]]
%t A122773 Flatten[%]
%K A122773 uned,tabl,sign,obsc,less
%O A122773 1,1
%A A122773 _Gary W. Adamson_ and _Roger L. Bagula_, Oct 20 2006