A124025 Duplicate of A123965.

1, 3, -1, 8, -6, 1, 21, -25, 9, -1, 55, -90, 51, -12, 1, 144, -300, 234, -86, 15, -1, 377, -954, 951, -480, 130, -18, 1, 987, -2939, 3573, -2305, 855, -183, 21, -1, 2584, -8850, 12707, -10008, 4740, -1386, 245, -24, 1, 6765, -26195, 43398, -40426, 23373, -8715, 2100, -316, 27, -1, 17711, -76500, 143682

Offset: 1

Author

Roger L. Bagula, Oct 31 2006

Keywords

• dead

References

• Joanne Dombrowski, Tridiagonal matrix representations of cyclic selfadjoint operators, Pacific J. Math. 114, no. 2 (1984), 325-334

Crossrefs

Cf. A101950, A104562, A123965.

Programs

Mathematica

b[k_] = 3; a[k_] = -1; p[0, x] = 1; p[1, x] = (x - b[1])/a[1]; p[k_, x_] := p[k, x] = ((x - b[k - 1])*p[k - 1, x] - a[k - 2]*p[k - 2, x])/a[k - 1]; w = Table[CoefficientList[p[n, x], x], {n, 0, 10}]; Flatten[w]

Formula

Recursive polynomial from a tridiagonal matrix version of A123965 ( first number different): p(k, x) = ((x - b(k - 1))*p(k - 1, x) - a(k - 2)*p(k - 2, x))/a(n - 1); a(n)=-1;b(n)=3;