A156817 A triangle sequence from polynomial coefficients: p(x, n) = (4*(n - 1) + (4(n - 1))*x^2)*p(x, n - 1) + 2*(n - 1)x^2*p(x, n - 2).

1, 1, 2, 1, 4, 8, 10, 8, 4, 32, 64, 116, 136, 116, 64, 32, 384, 768, 1800, 2448, 2844, 2448, 1800, 768, 384, 6144, 12288, 35200, 51968, 75232, 79424, 75232, 51968, 35200, 12288, 6144, 122880, 245760, 830720, 1292800, 2226640, 2652320, 3037720

Offset

0,3

Comments

Row sums are:

{1, 4, 34, 560, 13644, 441088, 17779960, 858731136, 48337863056,

3107362933760, 224600212765728,...}.

Links

Table of n, a(n) for n=0..42.

Formula

p(x, n) = (4*(n - 1) + (4(n - 1))*x^2)*p(x, n - 1) + 2*(n - 1)x^2*p(x, n - 2);

t(n,m)=coefficients(p(x,n)).

Example

{1},
{1, 2, 1},
{4, 8, 10, 8, 4},
{32, 64, 116, 136, 116, 64, 32},
{384, 768, 1800, 2448, 2844, 2448, 1800, 768, 384},
{6144, 12288, 35200, 51968, 75232, 79424, 75232, 51968, 35200, 12288, 6144},
{122880, 245760, 830720, 1292800, 2226640, 2652320, 3037720, 2652320, 2226640, 1292800, 830720, 245760, 122880},
{2949120, 5898240, 22960128, 37072896, 73799040, 95306496, 127247424, 128264448, 127247424, 95306496, 73799040, 37072896, 22960128, 5898240, 2949120},
{82575360, 165150720, 727179264, 1206632448, 2720886784, 3724722176, 5660473952, 6297118912, 7168383824, 6297118912, 5660473952, 3724722176, 2720886784, 1206632448, 727179264, 165150720, 82575360}, {2642411520, 5284823040, 25959333888, 43991433216, 110705475584, 158396514304, 269384328192, 322223818752, 412559407616, 405067841536, 412559407616, 322223818752, 269384328192, 158396514304, 110705475584, 43991433216, 25959333888, 5284823040, 2642411520}, {95126814720, 190253629440, 1031149191168, 1776917938176, 4933022367744, 7307685494784, 13732208898048, 17369376989184, 24651863020224, 26295847910784, 29833308257184, 26295847910784, 24651863020224, 17369376989184, 13732208898048, 7307685494784, 4933022367744, 1776917938176, 1031149191168, 190253629440, 95126814720}

Mathematica

Clear[p, x];
p[x, 0] = 1; p[x, 1] = x^2 + 2*x + 1;
p[x_, n_] := p[x, n] = (4*(n - 1) + (4(n - 1))*x^2)*p[x, n - 1] + 2*(n - 1)x^2*p[x, n - 2];
Flatten[Table[CoefficientList[ExpandAll[p[x, n]], x], {n, 0, 10}]]

Crossrefs

Sequence in context: A112173 A058543 A353661 * A008301 A363386 A294104

Adjacent sequences: A156814 A156815 A156816 * A156818 A156819 A156820

Keyword

nonn,tabl

Author

Roger L. Bagula and Gary W. Adamson, Feb 16 2009

Status

approved