|
|
A340554
|
|
T(n, k) = [x^k] hypergeom([-2^n/2, -2^n/2 - 1/2], [1/2], x). Triangle read by rows, T(n, k) for n >= 0.
|
|
0
|
|
|
1, 1, 1, 3, 1, 10, 5, 1, 36, 126, 84, 9, 1, 136, 2380, 12376, 24310, 19448, 6188, 680, 17, 1, 528, 40920, 1107568, 13884156, 92561040, 354817320, 818809200, 1166803110, 1037158320, 573166440, 193536720, 38567100, 4272048, 237336, 5456, 33
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle starts:
[0] 1, 1
[1] 1, 3
[2] 1, 10, 5
[3] 1, 36, 126, 84, 9
[4] 1, 136, 2380, 12376, 24310, 19448, 6188, 680, 17
|
|
MAPLE
|
CoeffList := p -> op(PolynomialTools:-CoefficientList(p, x)):
Tpoly := proc(n) simplify(hypergeom([-2^n/2, -2^n/2 - 1/2], [1/2], x)):
CoeffList(%) end: seq(Tpoly(n), n = 0..5);
|
|
MATHEMATICA
|
Tpoly[n_] := HypergeometricPFQ[{-2^n/2, -2^n/2 - 1/2}, {1/2}, x];
Table[CoefficientList[Tpoly[n], x], {n, 0, 5}] // Flatten
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|