login
Riordan array (c(x^2)^2, x*c(x^2)), c(x) the g.f. of A000108.
5

%I #30 Feb 11 2023 02:44:22

%S 1,0,1,2,0,1,0,3,0,1,5,0,4,0,1,0,9,0,5,0,1,14,0,14,0,6,0,1,0,28,0,20,

%T 0,7,0,1,42,0,48,0,27,0,8,0,1,0,90,0,75,0,35,0,9,0,1,132,0,165,0,110,

%U 0,44,0,10,0,1,0,297,0,275,0,154,0,54,0,11,0,1,429,0,572,0,429,0,208,0,65,0,12,0,1

%N Riordan array (c(x^2)^2, x*c(x^2)), c(x) the g.f. of A000108.

%C Inverse of A112552.

%C The n-th row polynomial (in descending powers of x) is equal to the n-th degree Taylor polynomial of the polynomial function (1 - x^4)*(1 + x^2)^n about 0. For example, when n = 6, (1 - x^4)*(1 + x^2)^6 = 1 + 6*x^2 + 14*x^4 + 14*x^6 + O(x^8). - _Peter Bala_, Feb 19 2018

%H G. C. Greubel, <a href="/A112554/b112554.txt">Rows n = 0..50 of the triangle, flattened</a>

%H Peter Bala, <a href="/A264772/a264772_1.pdf">A 4-parameter family of embedded Riordan arrays</a>

%F Sum_{k=0..n} T(n, k) = binomial(n+1, floor(n/2)) = A037952(n+1).

%F T(n, k) = ((1 + (-1)^(n-k))/2)*binomial(n, floor((n-k)/2)) - binomial(n, floor((n-k-4)/2 )). - _Peter Bala_, Feb 19 2018

%e Triangle begins

%e 1;

%e 0, 1;

%e 2, 0, 1;

%e 0, 3, 0, 1;

%e 5, 0, 4, 0, 1;

%e 0, 9, 0, 5, 0, 1;

%e 14, 0, 14, 0, 6, 0, 1;

%p seq(seq((1 + (-1)^(n-k))/2*( binomial(n, floor((n - k)/2)) - binomial(n, floor((n - k - 4)/2 )) ), k = 0..n), n = 0..10); # _Peter Bala_, Feb 19 2018

%t T[n_, k_] := (1 + (-1)^(n-k))/2 (Binomial[n, Floor[(n-k)/2]] - Binomial[n, Floor[(n-k-4)/2]]);

%t Table[T[n, k], {n, 0, 12}, {k, 0, n}] (* _Jean-François Alcover_, Jun 13 2019 *)

%o (Sage) # Algorithm of L. Seidel (1877)

%o # Prints the first n rows of a signed version of the triangle.

%o def Signed_A112554_triangle(n) :

%o D = [0]*(n+4); D[1] = 1

%o b = False; h = 2

%o for i in range(2*n+2) :

%o if b :

%o for k in range(h,0,-1) : D[k] += D[k-1]

%o h += 1

%o else :

%o for k in range(1,h, 1) : D[k] -= D[k+1]

%o b = not b

%o if b and i > 0 : print([D[z] for z in (2..h-1)])

%o Signed_A112554_triangle(13) # _Peter Luschny_, May 01 2012

%o (Magma)

%o A112554:= func< n,k | ((1+(-1)^(n-k))/2)*(Binomial(n, Floor((n-k)/2)) - Binomial(n, Floor((n-k-4)/2))) >;

%o [A112554(n,k): k in [0..n], n in [0..15]]; // _G. C. Greubel_, Jan 13 2022

%Y Row sums A037952, matrix inverse A112552.

%Y Cf. A000108, A037952 (row sums), A112552, A112553.

%K easy,nonn,tabl

%O 0,4

%A _Paul Barry_, Sep 13 2005