|
| |
|
|
A143507
|
|
The Hermite polynomials (A060821) with the McMullen's transform substitution:x->x+1/x: p(x,n) = HermiteH[n, x]; q(x,n)=x^(n)*p(x+1/x,n).
|
|
0
| |
|
|
1, 2, 0, 2, 4, 0, 6, 0, 4, 8, 0, 12, 0, 12, 0, 8, 16, 0, 16, 0, 12, 0, 16, 0, 16, 32, 0, 0, 0, -40, 0, -40, 0, 0, 0, 32, 64, 0, -96, 0, -240, 0, -280, 0, -240, 0, -96, 0, 64, 128, 0, -448, 0, -672, 0, -560, 0, -560, 0, -672, 0, -448, 0, 128, 256, 0, -1536, 0, -896, 0, 896, 0, 1680, 0, 896, 0, -896, 0, -1536, 0, 256, 512, 0, -4608, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Row sums are:
{1, 4, 14, 40, 76, -16, -824, -3104, -880, 46144, 200416}.
|
|
|
FORMULA
| p(x,n) = HermiteH[n, x]; q(x,n)=x^(n)*p(x+1/x,n); t(n,m)=Coefficients(q(x,n)).
|
|
|
EXAMPLE
| {1},
{2, 0, 2},
{4, 0, 6, 0, 4},
{8, 0, 12, 0, 12, 0, 8},
{16, 0, 16, 0, 12, 0, 16, 0, 16},
{32, 0, 0, 0, -40, 0, -40, 0, 0, 0, 32},
{64, 0, -96, 0, -240, 0, -280, 0, -240, 0, -96, 0, 64},
{128, 0, -448, 0, -672, 0, -560, 0, -560, 0, -672, 0, -448, 0, 128},
{256, 0, -1536, 0, -896,0, 896, 0, 1680, 0, 896, 0, -896, 0, -1536, 0, 256},
{512, 0, -4608, 0, 2304, 0, 10752, 0, 14112, 0, 14112, 0, 10752, 0, 2304, 0, -4608, 0, 512},
{1024, 0, -12800, 0, 23040, 0, 42240, 0, 33600, 0, 26208,0, 33600, 0, 42240, 0, 23040, 0, -12800, 0, 1024}
|
|
|
MATHEMATICA
| p[x_, n_] = HermiteH[n, x]; Table[FullSimplify[ExpandAll[x^n*p[x + 1/x, n]]], {n, 1, 10}]; Table[CoefficientList[FullSimplify[ExpandAll[x^(n )*p[x + 1/x, n]]], x], {n, 1, 10}]; Flatten[%]
|
|
|
CROSSREFS
| Cf. A060821.
Sequence in context: A131186 A137320 A137312 * A071961 A172040 A120557
Adjacent sequences: A143504 A143505 A143506 * A143508 A143509 A143510
|
|
|
KEYWORD
| sign,uned
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 25 2008
|
| |
|
|
