|
%I #20 Mar 27 2020 17:33:57
%S 1,2,2,6,10,4,22,46,32,8,90,214,196,88,16,394,1018,1104,672,224,32,
%T 1806,4946,6020,4448,2048,544,64,8558,24470,32400,27432,15584,5792,
%U 1280,128,41586,122926,173572,162680,107408,49824,15552,2944,256
%N The Riordan square of the large Schröder numbers, triangle read by rows, T(n, k) for 0 <= k <= n.
%C Triangle, read by rows,given by [2,1,2,1,2,1,2,1,...]DELTA[2,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938. - _Philippe Deléham_, Feb 05 2020
%F T(n, k) = 2^k*A133367(n,k). - _Philippe Deléham_, Feb 05 2020
%e [0][ 1]
%e [1][ 2, 2]
%e [2][ 6, 10, 4]
%e [3][ 22, 46, 32, 8]
%e [4][ 90, 214, 196, 88, 16]
%e [5][ 394, 1018, 1104, 672, 224, 32]
%e [6][ 1806, 4946, 6020, 4448, 2048, 544, 64]
%e [7][ 8558, 24470, 32400, 27432, 15584, 5792, 1280, 128]
%e [8][ 41586, 122926, 173572, 162680, 107408, 49824, 15552, 2944, 256]
%e [9][206098, 625522, 929248, 942592, 697408, 379840, 149248, 40192, 6656, 512]
%p # The function RiordanSquare is defined in A321620.
%p LargeSchröder := x -> (1 - x - sqrt(1 - 6*x + x^2))/(2*x);
%p RiordanSquare(LargeSchröder(x), 10);
%t (* The function RiordanSquare is defined in A321620. *)
%t LargeSchröder[x_] := (1 - x - Sqrt[1 - 6*x + x^2])/(2*x);
%t RiordanSquare[LargeSchröder[x], 10] (* _Jean-François Alcover_, Jun 15 2019, from Maple *)
%o (Sage) # uses[riordan_square from A321620]
%o riordan_square((1 - x - sqrt(1 - 6*x + x^2))/(2*x), 10)
%Y T(n, 0) = A006318 (large Schröder), A321574 (row sums), A000007 (alternating row sums).
%Y Cf. A321620, A133367.
%K nonn,tabl
%O 0,2
%A _Peter Luschny_, Nov 22 2018
|
