|
| |
|
|
A136531
|
|
Coefficients of polynomial recursion with simple values: a=-b;b=1;c=1 ; B(x, n) = ((1 + a + b)*x - c)*B(x, n - 1) - a*b*B(x, n - 2).
|
|
0
| |
|
|
1, 0, 1, 1, -1, 1, -1, 3, -2, 1, 2, -5, 6, -3, 1, -3, 10, -13, 10, -4, 1, 5, -18, 29, -26, 15, -5, 1, -8, 33, -60, 65, -45, 21, -6, 1, 13, -59, 122, -151, 125, -71, 28, -7, 1, -21, 105, -241, 338, -321, 217, -105, 36, -8, 1, 34, -185, 468, -730, 784, -609, 350, -148, 45, -9, 1
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,8
|
|
|
COMMENTS
| Row sums are all 1.
This recursion doesn't appear to be integration orthogonal at all.
|
|
|
FORMULA
| a=-b;b=1;c=1 ; B(x, n) = ((1 + a + b)*x - c)*B(x, n - 1) - a*b*B(x, n - 2)
|
|
|
EXAMPLE
| {1},
{0, 1},
{1, -1, 1},
{-1, 3, -2, 1},
{2, -5, 6, -3, 1},
{-3,10, -13, 10, -4, 1},
{5, -18, 29, -26, 15, -5, 1},
{-8,33, -60, 65, -45,21, -6, 1},
{13, -59, 122, -151, 125, -71, 28, -7, 1},
{-21, 105, -241, 338, -321, 217, -105,36, -8, 1},
{34, -185, 468, -730, 784, -609, 350, -148, 45, -9, 1}
|
|
|
MATHEMATICA
| Clear[B, x, n, f, a, b, c] a = -b; c = 1; b = 1; B[x, 0] = 1; B[x, 1] = x; B[x_, n_] := B[x, n] = ((1 + a + b)*x - c)*B[x, n - 1] - a*b*B[x, n - 2]; Table[ExpandAll[B[x, n]], {n, 0, 10}]; a0 = Table[CoefficientList[B[x, n], x], {n, 0, 10}]; Flatten[a0]
|
|
|
CROSSREFS
| Sequence in context: A136560 A105847 A048984 * A127318 A175947 A085068
Adjacent sequences: A136528 A136529 A136530 * A136532 A136533 A136534
|
|
|
KEYWORD
| uned,tabl,sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 23 2008
|
| |
|
|
