|
| |
|
|
A137477
|
|
A triangular sequence of coefficients from the inverse substitution of in the spherical Bessel polynomial recursion:k=1;x->1/y; B(x, n) = (-2/x)*B(x, n - 1) - (k^2 - (n*(n - 1)/x^2))*B(x, n - 2).
|
|
0
| |
|
|
1, 0, -2, -1, 0, 6, 0, 4, 0, -24, 1, 0, -26, 0, 120, 0, -6, 0, 156, 0, -720, -1, 0, 68, 0, -1212, 0, 5040, 0, 8, 0, -544, 0, 9696, 0, -40320, 1, 0, -140, 0, 6108, 0, -92304, 0, 362880, 0, -10, 0, 1400, 0, -61080, 0, 923040, 0, -3628800, -1, 0, 250, 0, -21508, 0, 764184, 0, -10516320, 0, 39916800
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Row sums are;
{1, -2, 5, -20, 95, -570, 3895, -31160, 276545, -2765450, 30143405}
These polynomials are closely related to Yakawa wave functions
in meson nuclear force theory.
|
|
|
REFERENCES
| Weisstein, Eric W., Spherical Bessel Differential Equation, http://mathworld.wolfram.com/SphericalBesselDifferentialEquation.html
|
|
|
FORMULA
| k=1;x->1/y; B(x, n) = (-2/x)*B(x, n - 1) - (k^2 - (n*(n - 1)/x^2))*B(x, n - 2).
|
|
|
EXAMPLE
| {1},
{0, -2},
{-1, 0, 6},
{0, 4, 0, -24},
{1, 0, -26, 0, 120},
{0, -6,0, 156, 0, -720},
{-1, 0,68, 0, -1212, 0, 5040},
{0, 8, 0, -544, 0, 9696, 0, -40320},
{1, 0, -140, 0, 6108, 0, -92304, 0, 362880},
{0, -10, 0, 1400, 0, -61080, 0, 923040, 0, -3628800},
{-1, 0, 250, 0, -21508, 0, 764184, 0, -10516320, 0, 39916800}
|
|
|
MATHEMATICA
| Clear[B, x] k = 1; B[x, -1] = 0; B[x, 0] = 1; B[x_, n_] := B[x, n] = (-2/x)*B[x, n - 1] - (k^2 - (n*(n - 1)/x^2))*B[x, n - 2]; g = Table[ExpandAll[B[x, n]], {n, 0, 10}]; a = Table[CoefficientList[B[x, n] /. x -> 1/y, y], {n, 0, 10}]; Flatten[a] Table[Apply[Plus, CoefficientList[B[x, n] /. x -> 1/y, y]], {n, 0, 10}];
|
|
|
CROSSREFS
| Sequence in context: A130191 A059720 A140589 * A181297 A196776 A157982
Adjacent sequences: A137474 A137475 A137476 * A137478 A137479 A137480
|
|
|
KEYWORD
| uned,tabl,sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 21 2008
|
| |
|
|
