%I #46 Nov 02 2023 09:29:19
%S 1,0,1,2,0,1,0,3,0,1,6,0,4,0,1,0,10,0,5,0,1,20,0,15,0,6,0,1,0,35,0,21,
%T 0,7,0,1,70,0,56,0,28,0,8,0,1,0,126,0,84,0,36,0,9,0,1,252,0,210,0,120,
%U 0,45,0,10,0,1,0,462,0,330,0,165,0,55,0,11,0,1,924,0,792,0,495,0,220,0,66
%N Triangle read by rows: right half of Pascal's triangle (A007318) interspersed with 0's.
%C Column k has e.g.f. Bessel_I(k,2x). - _Paul Barry_, Mar 10 2010
%C T(n,k) is the number of binary sequences of length n in which the number of ones minus the number of zeros is k. If 2 divides(n+k), such a sequence will have (n+k)/2 ones and (n-k)/2 zeros. Since there are C(n,(n+k)/2) ways to choose the sequence entries that get a one, T(n,k)=binomial(n,(n+k)/2) whenever (n+k) is even and T(n,k)= 0 otherwise. See the example below in the example section. - _Dennis P. Walsh_, Apr 11 2012
%C T(n,k) is the number of walks on the semi-infinite integer line with n steps that end at k. The walks start at 0, move at each step either one to the left or one to the right, and never enter the region of negative k. [Walks with impenetrable wall at -1/2. Dyck excursions of n steps that end at level k.] The variant without the restriction of negative positions is A053121. - _R. J. Mathar_, Nov 02 2023
%H Harvey P. Dale, <a href="/A108044/b108044.txt">Rows n = 0..125 of triangle, flattened</a>
%H Paul Barry and A. Hennessy, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL13/Barry5/barry96s.html">Meixner-Type Results for Riordan Arrays and Associated Integer Sequences</a>, J. Int. Seq. 13 (2010) # 10.9.4, section 8.
%H Johann Cigler, <a href="https://arxiv.org/abs/1611.05252">Some elementary observations on Narayana polynomials and related topics</a>, arXiv:1611.05252 [math.CO], 2016. See p. 14.
%H P. Peart and W.-J. Woan, <a href="http://dx.doi.org/10.1016/S0166-218X(99)00166-3">A divisibility property for a subgroup of Riordan matrices</a>, Discrete Applied Mathematics, Vol. 98, Issue 3, Jan 2000, 255-263.
%H L. W. Shapiro, S. Getu, Wen-Jin Woan and L. C. Woodson, <a href="http://dx.doi.org/10.1016/0166-218X(91)90088-E">The Riordan Group</a>, Discrete Appl. Maths. 34 (1991) 229-239.
%H <a href="/index/Pas#Pascal">Index entries for triangles and arrays related to Pascal's triangle</a>
%F Each entry is the sum of those in the previous row that are to its left and to its right.
%F Riordan array (1/sqrt(1-4*x^2), (1-sqrt(1-4*x^2))/(2*x)).
%F T(n, k) = binomial(n, (n+k)/2) if n+k is even, T(n, k)=0 if n+k is odd. G.f.=f/(1-tg), where f=1/sqrt(1-4x^2) and g=(1-sqrt(1-4x^2))/(2x). - _Emeric Deutsch_, Jun 05 2005
%F From _Peter Bala_, Jun 29 2015: (Start)
%F Riordan array has the form ( x*h'(x)/h(x), h(x) ) with h(x) = ( 1 - sqrt(1 - 4*x) )/(2*x) and so belongs to the hitting time subgroup H of the Riordan group (see Peart and Woan).
%F T(n,k) = [x^(n-k)] f(x)^n with f(x) = 1 + x^2. In general the (n,k)th entry of the hitting time array ( x*h'(x)/h(x), h(x) ) has the form [x^(n-k)] f(x)^n, where f(x) = x/( series reversion of h(x) ).
%F The inverse array is A108045 (a hitting time array with h(x) = x/(1 + x^2)). (End)
%e Triangle begins:
%e .1
%e .0 1
%e .2 0 1
%e .0 3 0 1
%e .6 0 4 0 1
%e .0 10 0 5 0 1
%e .20 0 15 0 6 0 1
%e From _Paul Barry_, Mar 10 2010: (Start)
%e Production matrix is
%e 0, 1,
%e 2, 0, 1,
%e 0, 1, 0, 1,
%e 0, 0, 1, 0, 1,
%e 0, 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 0, 0, 0, 1, 0, 1 (End)
%e T(5,1)=10 since there are 10 binary sequences of length 5 in which the number of ones exceed the number of zeros by exactly 1, namely, 00111, 01011, 01101, 01110, 10011, 10101, 10110, 11001, 11010, and 11100. Also, T(5,2)=0 since there are no binary sequences in which the number of ones exceed the number of zeros by exactly 2. - _Dennis P. Walsh_, Apr 11 2012
%p T:=proc(n,k) if n+k mod 2 = 0 then binomial(n,(n+k)/2) else 0 fi end: for n from 0 to 13 do seq(T(n,k),k=0..n) od; # yields sequence in triangular form; _Emeric Deutsch_, Jun 05 2005
%t b[n_,k_]:=If[EvenQ[n+k],Binomial[n,(n+k)/2],0]; Flatten[Table[b[n,k],{n,0,20},{k,0,n}]] (* _Harvey P. Dale_, May 05 2013 *)
%o (Haskell)
%o import Data.List (intersperse)
%o a108044 n k = a108044_tabl !! n !! k
%o a108044_row n = a108044_tabl !! n
%o a108044_tabl = zipWith drop [0..] $ map (intersperse 0) a007318_tabl
%o -- _Reinhard Zumkeller_, May 18 2013
%Y Cf. A007318, A108045 (matrix inverse),
%Y Cf. A204293, A357136, A000984 (column 0), A001700 (column 1), A001791 (column 2), A002054 (column 3)
%K nonn,tabl,easy
%O 0,4
%A _N. J. A. Sloane_, Jun 02 2005
%E More terms from _Emeric Deutsch_ and _Christian G. Bower_, Jun 05 2005