login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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). 0
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 (list; table; graph; refs; listen; history; text; internal format)
OFFSET
0,3
COMMENTS
Row sums are:
{1, 4, 34, 560, 13644, 441088, 17779960, 858731136, 48337863056,
3107362933760, 224600212765728,...}.
LINKS
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
KEYWORD
nonn,tabl
AUTHOR
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 2 18:02 EST 2024. Contains 370498 sequences. (Running on oeis4.)