OFFSET
1,3
COMMENTS
Row sums are {0, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11}.
REFERENCES
Rosenblum and Rovnyak, Hardy Classes and Operator Theory,Dover, New York,1985, page 18-19
EXAMPLE
Triangle begins:
{0},
{0, -2},
{1, 0, -4},
{0, 4, 0, -8},
{-1, 0, 12, 0, -16},
{0, -6, 0, 32,0, -32},
{1, 0, -24, 0, 80, 0, -64},
{0, 8, 0, -80, 0, 192,0, -128},
{-1, 0, 40, 0, -240, 0, 448, 0, -256},
{0, -10, 0, 160, 0, -672, 0, 1024, 0, -512},
{1, 0, -60, 0, 560, 0, -1792, 0, 2304, 0, -1024}
...
MATHEMATICA
p[t_] = (-2*x*t + t^2)/(1 - 2*x*t + t^2);
Table[ ExpandAll[SeriesCoefficient[Series[p[t], {t, 0, 30}], n]], {n, 0, 10}];
a = Join[{{0}}, Table[ CoefficientList[ExpandAll[SeriesCoefficient[Series[p[t], {t, 0, 30}], n]], x], {n, 0, 10}]]; Flatten[a]
(* polynomial recursion: needs first three terms: *)
p[x, 0] = 0; p[x, 1] = -2*x; p[x, 2] = 1 - 4*x^2; p[x_, n_] := p[x, n] = 2*x*p[x, n - 1] - p[x, n - 2];
Table[ExpandAll[p[x, n]], {n, 0, Length[g] - 1}]
CROSSREFS
KEYWORD
tabl,sign
AUTHOR
Roger L. Bagula, Apr 07 2008
STATUS
approved