|
%I #20 Sep 29 2021 12:44:28
%S 1,1,1,1,1,2,4,2,1,1,3,9,9,9,3,1,1,4,16,24,36,24,16,4,1,1,5,25,50,100,
%T 100,100,50,25,5,1,1,6,36,90,225,300,400,300,225,90,36,6,1,1,7,49,147,
%U 441,735,1225,1225,1225,735,441,147,49,7,1,1,8,64,224,784,1568,3136,3920,4900,3920,3136,1568,784,224,64,8,1
%N Triangle formed from the odd-numbered rows of A088855.
%C The rows give the coefficients in the numerator polynomials of the o.g.f.s for the columns of triangle A055898. - _Georg Fischer_, Aug 16 2021
%C They also occur (with a factor 2*x) in the numerator polynomials of the difference A157052-A157074. - _Georg Fischer_, Sep 27 2021
%H Johann Cigler, <a href="http://arxiv.org/abs/1501.04750">Some remarks and conjectures related to lattice paths in strips along the x-axis</a>, arXiv:1501.04750 [math.CO], 2015-2016.
%e Triangle begins:
%e 1,
%e 1,1,1,
%e 1,2,4,2,1,
%e 1,3,9,9,9,3,1,
%e 1,4,16,24,36,24,16,4,1,
%e 1,5,25,50,100,100,100,50,25,5,1,
%e 1,6,36,90,225,300,400,300,225,90,36,6,1,
%e 1,7,49,147,441,735,1225,1225,1225,735,441,147,49,7,1,
%e 1,8,64,224,784,1568,3136,3920,4900,3920,3136,1568,784,224,64,8,1,
%e ...
%t row[n_] := CoefficientList[Sum[Binomial[n, k]^2 *x^(2*k), {k, 0, n}] + Sum[Binomial[n, k]*Binomial[n, k - 1]* x^(2*k - 1), {k, 0, n}], x];
%t Table[row[n], {n, 0, 8}] // Flatten (* _Jean-François Alcover_, Jun 07 2018 *)
%o (PARI) T(n, k) = binomial((n-1)\2, (k-1)\2)*binomial(n\2, k\2); \\ A088855
%o row(n) = vector(2*n-1, k, T(2*n-1, k)); \\ _Michel Marcus_, Sep 27 2021
%Y Cf. A055899, A055900, A055901, A055902, A055903, A055904, A088855.
%Y Cf. A088459 (even numbered rows of A088855).
%K nonn,tabf
%O 1,6
%A _N. J. A. Sloane_, Sep 23 2014
%E Row n=8 corrected by _Jean-François Alcover_, Jun 07 2018
%E Offset changed to 1 by _Georg Fischer_, Sep 27 2021
|
