|
Search: id:A137449
|
|
|
| A137449 |
|
A triangular sequence based on concepts of operations on existing sequences: in this case the H(x,n) ( A060821) traditional Hermite is differentiated twice : p(x,n)=-x^2*H''(x,n)+H(x,n). |
|
+0
1
|
|
| 1, 1, 1, -2, 0, -4, 0, -12, 0, -40, 12, 0, 48, 0, -176, 0, 120, 0, 800, 0, -608, -120, 0, -720, 0, 5280, 0, -1856, 0, -1680, 0, -16800, 0, 25536, 0, -5248, 1680, 0, 13440, 0, -147840, 0, 103936, 0, -14080, 0, 30240, 0, 403200, 0, -919296, 0, 377856, 0, -36352, -30240, 0, -302400, 0, 4435200, 0, -4677120, 0
(list; table; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Row sums are:
{1, 2, -6, -52, -116, 312, 2584, 1808, -42864, -144352, 601504};
As an operator algebra like an Energy Hamiltonian:
e(n)*H(x,n)=p(x,n)/x^2
The relative energy of the row sums goes up much faster than in the Chebyshev
of the first kind.
|
|
FORMULA
|
p(x,n)=-x^2*H''(x,n)+H(x,n)
|
|
EXAMPLE
|
{1},
{1, 1},
{-2, 0, -4},
{0, -12, 0, -40},
{12, 0, 48, 0, -176},
{0, 120,0, 800, 0, -608},
{-120, 0, -720, 0, 5280, 0, -1856},
{0, -1680, 0, -16800, 0, 25536, 0, -5248},
{1680, 0, 13440, 0, -147840, 0, 103936, 0, -14080},
{0, 30240, 0, 403200, 0, -919296, 0, 377856, 0, -36352},
{-30240, 0, -302400, 0, 4435200, 0, -4677120,0, 1267200, 0, -91136}
|
|
MATHEMATICA
|
Clear[p, x, a] p[x, 0] = 1; p[x, 1] = x + 1; p[x_, n_] := p[x, n] = -x^2*D[HermiteH[n, x], {x, 2}] + HermiteH[n, x]; Table[Expand[p[x, n]], {n, 0, 10}]; a = Table[CoefficientList[p[x, n], x], {n, 0, 10}]; Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A021053 A128983 A066493 this_sequence A056946 A111757 A022896
Adjacent sequences: A137446 A137447 A137448 this_sequence A137450 A137451 A137452
|
|
KEYWORD
|
tabl,uned,sign
|
|
AUTHOR
|
Roger L. Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Apr 18 2008
|
|
|
Search completed in 0.002 seconds
|
