A201730 Triangle T(n,k), read by rows, given by (2,1/2,3/2,0,0,0,0,0,0,0,...) DELTA (0,1/2,-1/2,0,0,0,0,0,0,0,...) where DELTA is the operator defined in A084938.
1, 2, 0, 5, 1, 0, 14, 6, 0, 0, 41, 26, 1, 0, 0, 122, 100, 10, 0, 0, 0, 365, 363, 63, 1, 0, 0, 0, 1094, 1274, 322, 14, 0, 0, 0, 0, 3281, 4372, 1462, 116, 1, 0, 0, 0, 0, 9842, 14760, 6156, 744, 18, 0, 0, 0, 0, 0
Offset: 0
Examples
Triangle begins: 1 2, 0 5, 1, 0 14, 6, 0, 0 41, 26, 1, 0, 0 122, 100, 10, 0, 0, 0 365, 363, 63, 1, 0, 0, 0
Programs
-
Maple
A201730 := proc(n,k) (1-2*x)/(1-4*x+(3-y)*x^2) ; coeftayl(%,y=0,k) ; coeftayl(%,x=0,n) ; end proc: seq(seq(A201730(n,k),k=0..n),n=0..12) ; # R. J. Mathar, Dec 06 2011
-
Mathematica
m = 13; (* DELTA is defined in A084938 *) DELTA[Join[{2, 1/2, 3/2}, Table[0, {m}]], Join[{0, 1/2, -1/2}, Table[0, {m}]], m] // Flatten (* Jean-François Alcover, Feb 19 2020 *)
Formula
G.f.: (1-2x)/(1-4x+(3-y)*x^2).
Sum_{k, 0<=k<=n} T(n,k)*x^k = A139011(n), A000079(n), A007051(n), A006012(n), A001075(n), A081294(n), A001077(n), A084059(n), A108851(n), A084128(n), A081340(n), A084132(n) for x = -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 respectively.
Sum_{k, k>+0} T(n+k,k) = A081704(n) .
T(n,k) = 3*T(n-1,k)+ Sum_{j>0} T(n-1-j,k-1).
T(n,k) = 4*T(n-1,k)+ T(n-2,k-1) - 3*T(n-2,k) with T(0,0)=1, T(1,0)= 2, T(1,1) = 0 and T(n,k) = 0 if k<0 or if n
A123110 Triangle T(n,k), 0 <= k <= n, read by rows given by [0,1,0,0,0,0,0,0,0,0,...] DELTA [1,0,-1,1,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.
1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 0
Comments
Diagonal sums give A123108. - Philippe Deléham, Oct 08 2009
Examples
Triangle begins: 1; 0, 1; 0, 1, 1; 0, 1, 1, 1; 0, 1, 1, 1, 1; 0, 1, 1, 1, 1, 1; 0, 1, 1, 1, 1, 1, 1; 0, 1, 1, 1, 1, 1, 1, 1; 0, 1, 1, 1, 1, 1, 1, 1, 1; 0, 1, 1, 1, 1, 1, 1, 1, 1, 1;
Links
Crossrefs
Essentially the same sequence as A114607.
Also essentially the same as A023532. - R. J. Mathar, Jun 18 2008
After the initial a(0)=1, the characteristic function of A014132.
Cf. A010054.
Programs
-
PARI
A123110(n) = (!n || !ispolygonal(n,3)); \\ Antti Karttunen, Jan 19 2025
Formula
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A028310(n), A095121(n), A123109(n) for x=0,1,2,3 respectively.
G.f.: (1-x+y*x^2)/(1-(1+y)*x+y*x^2). - Philippe Deléham, Nov 01 2011
From Tom Copeland, Nov 10 2012: (Start)
O.g.f. for row polynomials: 1 + (t/(1-t))*(1/(1-x)-1/(1-x*t)) = 1 + t*x + (t+t^2)*x^2 + ....
E.g.f. for row polynomials: 1 + (t/(1-t))*(e^x-e^(t*x)) = 1 + t*x + (t+t^2)*x^2/2 + .... (End)
a(0) = 1; for n > 0, a(n) = 1 - A010054(n). [As a flat sequence] - Antti Karttunen, Jan 19 2025
A089949 Triangle T(n,k), read by rows, given by [0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, ...] DELTA [1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, ...] where DELTA is the operator defined in A084938.
1, 0, 1, 0, 1, 2, 0, 1, 6, 6, 0, 1, 12, 34, 24, 0, 1, 20, 110, 210, 120, 0, 1, 30, 270, 974, 1452, 720, 0, 1, 42, 560, 3248, 8946, 11256, 5040, 0, 1, 56, 1036, 8792, 38338, 87504, 97296, 40320, 0, 1, 72, 1764, 20580, 129834, 463050, 920184, 930960, 362880
Offset: 0
Comments
Row reverse appears to be A111184. - Peter Bala, Feb 17 2017
Examples
Triangle begins: 1; 0, 1; 0, 1, 2; 0, 1, 6, 6; 0, 1, 12, 34, 24; 0, 1, 20, 110, 210, 120; 0, 1, 30, 270, 974, 1452, 720; ...
Links
- Alois P. Heinz, Rows n = 0..140, flattened
Programs
-
Mathematica
m = 10; gf = (1/x)*(1-1/(1+Sum[Product[(1+k*y), {k, 0, n-1}]*x^n, {n, 1, m}])); CoefficientList[#, y]& /@ CoefficientList[gf + O[x]^m, x] // Flatten (* Jean-François Alcover, May 11 2019 *)
-
PARI
T(n,k)=if(n
Paul D. Hanna, Aug 16 2005
Formula
Sum_{k=0..n} x^(n-k)*T(n,k) = A111528(x, n); see A000142, A003319, A111529, A111530, A111531, A111532, A111533 for x = 0, 1, 2, 3, 4, 5, 6. - Philippe Deléham, Aug 09 2005
Sum_{k=0..n} T(n,k)*3^k = A107716(n). - Philippe Deléham, Aug 15 2005
Sum_{k=0..n} T(n,k)*2^k = A000698(n+1). - Philippe Deléham, Aug 15 2005
G.f.: A(x, y) = (1/x)*(1 - 1/(1 + Sum_{n>=1} [Product_{k=0..n-1}(1+k*y)]*x^n )). - Paul D. Hanna, Aug 16 2005
A121314 Triangle T(n,k), 0 <= k <= n, read by rows given by [0, 1, 0, 0, 0, 0, ...] DELTA [1, 0, 1, 0, 0, 0, 0, 0, 0, 0, ...] where DELTA is the operator defined in A084938.
1, 0, 1, 0, 1, 1, 0, 1, 3, 1, 0, 1, 5, 6, 1, 0, 1, 7, 15, 10, 1, 0, 1, 9, 28, 35, 15, 1, 0, 1, 11, 45, 84, 70, 21, 1, 0, 1, 13, 66, 165, 210, 126, 28, 1, 0, 1, 15, 91, 286, 495, 462, 210, 36, 1
Offset: 0
Comments
Examples
Triangle begins 1; 0, 1; 0, 1, 1; 0, 1, 3, 1; 0, 1, 5, 6, 1; 0, 1, 7, 15, 10, 1; 0, 1, 9, 28, 35, 15, 1; 0, 1, 11, 45, 84, 70, 21, 1;
Links
- Alois P. Heinz, Rows n = 0..140, flattened
- F. Yano and H. Yoshida, Some set partition statistics in non-crossing partitions and generating functions, Discr. Math., 307 (2007), 3147-3160.
Formula
T(0,0)=1; T(n,0)=0 for n > 0; T(n+1,k+1) = binomial(2*n-k,k)for n >= 0 and k >= 0.
Sum_{k=0..n} T(n,k)*x^k = A001519(n), A047849(n), A165310(n), A165311(n), A165312(n), A165314(n), A165322(n), A165323(n), A165324(n) for x = 1,2,3,4,5,6,7,8,9 respectively.
Sum_{k=0..n} 2^k*T(n,k) = (4^n+2)/3.
Sum_{k=0..n} 2^(n-k)*T(n,k) = A001835(n).
Sum_{k=0..n} 3^k*4^(n-k)*T(n,k) = A054879(n). - Philippe Deléham, Aug 26 2006
Sum_{k=0..n} T(n,k)*(-1)^k*2^(3n-2k) = A143126(n). - Philippe Deléham, Oct 31 2008
Sum_{k=0..n} T(n,k)*(-1)^k*3^(n-k) = A138340(n)/4^n. - Philippe Deléham, Nov 01 2008
G.f.: (1-(y+1)*x)/(1-(2y+1)*x+y^2*x^2). - Philippe Deléham, Nov 01 2011
T(n,k) = T(n-1,k) + 2*T(n-1,k-1) - T(n-2,k-2), T(0,0) = T(1,1) = 1, T(1,0) = 0. - Philippe Deléham, Feb 19 2012
A131198 Triangle T(n,k), 0 <= k <= n, read by rows, given by [1,0,1,0,1,0,1,0,...] DELTA [0,1,0,1,0,1,0,1,...] where DELTA is the operator defined in A084938.
1, 1, 0, 1, 1, 0, 1, 3, 1, 0, 1, 6, 6, 1, 0, 1, 10, 20, 10, 1, 0, 1, 15, 50, 50, 15, 1, 0, 1, 21, 105, 175, 105, 21, 1, 0, 1, 28, 196, 490, 490, 196, 28, 1, 0, 1, 36, 336, 1176, 1764, 1176, 336, 36, 1, 0, 1, 45, 540, 2520, 5292, 5292, 2520, 540, 45, 1, 0
Offset: 0
Comments
Examples
Triangle begins: 1; 1, 0; 1, 1, 0; 1, 3, 1, 0; 1, 6, 6, 1, 0; 1, 10, 20, 10, 1, 0; 1, 15, 50, 50, 15, 1, 0; 1, 21, 105, 175, 105, 21, 1, 0; 1, 28, 196, 490, 490, 196, 28, 1, 0; ...
Links
- G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
- Paul Barry, Continued fractions and transformations of integer sequences, JIS 12 (2009), Article 09.7.6.
- Paul Barry, On a Generalization of the Narayana Triangle, J. Int. Seq. 14 (2011), Article 11.4.5.
- Paul Barry, On a transformation of Riordan moment sequences, arXiv:1802.03443 [math.CO], 2018.
- Paul Barry and A. Hennessy, A Note on Narayana Triangles and Related Polynomials, Riordan Arrays, and MIMO Capacity Calculations, J. Int. Seq. 14 (2011), Article 11.3.8.
- FindStat - Combinatorial Statistic Finder, The number of peaks of a Dyck path., The number of double rises of a Dyck path., The number of valleys of a Dyck path., The number of left oriented leafs except the first one of a binary tree., The number of left tunnels of a Dyck path.
- Aoife Hennessy, A Study of Riordan Arrays with Applications to Continued Fractions, Orthogonal Polynomials and Lattice Paths, Ph. D. Thesis, Waterford Institute of Technology, Oct. 2011.
Programs
-
Magma
[[n le 0 select 1 else (n-k)*Binomial(n,k)^2/(n*(k+1)): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Feb 06 2018
-
Maple
T := (n,k) -> `if`(n=0, 0^n, binomial(n,k)^2*(n-k)/(n*(k+1))); seq(print(seq(T(n,k), k=0..n)), n=0..5); # Peter Luschny, Jun 08 2014 R := n -> simplify(hypergeom([1 - n, -n], [2], x)): Trow := n -> seq(coeff(R(n, x), x, k), k = 0..n): seq(print(Trow(n)), n = 0..9); # Peter Luschny, Apr 26 2022
-
Mathematica
Table[If[n == 0, 1, (n-k)*Binomial[n,k]^2/(n*(k+1))], {n,0,10}, {k,0,n}] //Flatten (* G. C. Greubel, Feb 06 2018 *)
-
PARI
for(n=0,10, for(k=0,n, print1(if(n==0,1, (n-k)*binomial(n,k)^2/(n* (k+1))), ", "))) \\ G. C. Greubel, Feb 06 2018
Formula
Sum_{k=0..n} T(n,k)*x^k = A000012(n), A000108(n), A001003(n), A007564(n), A059231(n), A078009(n), A078018(n), A081178(n), A082147(n), A082181(n), A082148(n), A082173(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 respectively.
Sum_{k=0..n} T(n,k)*x^(n-k) = A000007(n), A000108(n), A006318(n), A047891(n+1), A082298(n), A082301(n), A082302(n), A082305(n), A082366(n), A082367(n), for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 respectively. - Philippe Deléham, Oct 23 2007
Sum_{k=0..floor(n/2)} T(n-k,k) = A004148(n). - Philippe Deléham, Nov 06 2007
T(2*n,n) = A125558(n). - Philippe Deléham, Nov 16 2011
T(n, k) = [x^k] hypergeom([1 - n, -n], [2], x). - Peter Luschny, Apr 26 2022
A155112 Triangle T(n,k), 0<=k<=n, read by rows given by [0,2,-1/2,-1/2,0,0,0,0,0,0,0,0,...] DELTA [1,0,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.
1, 0, 1, 0, 2, 1, 0, 3, 4, 1, 0, 5, 10, 6, 1, 0, 8, 22, 21, 8, 1, 0, 13, 45, 59, 36, 10, 1, 0, 21, 88, 147, 124, 55, 12, 1, 0, 34, 167, 339, 366, 225, 78, 14, 1, 0, 55, 310, 741, 976, 770, 370, 105, 16, 1, 0, 89, 566, 1557, 2422, 2337, 1443, 567, 136, 18, 1, 0, 144, 1020, 3174, 5696, 6505, 4920, 2485, 824, 171, 20, 1
Offset: 0
Comments
A Fibonacci convolution triangle; Riordan array (1, x*(1+x)/(1-x-x^2)).
Examples
Triangle begins: 1; 0, 1; 0, 2, 1; 0, 3, 4, 1; 0, 5, 10, 6, 1; 0, 8, 22, 21, 8, 1; 0, 13, 45, 59, 36, 10, 1; ...
Links
- Alois P. Heinz, Rows n = 0..140, flattened
Crossrefs
Programs
-
Magma
T:= func< n,k | n eq 0 select 1 else (&+[ Binomial(n-j,j)*Binomial(n-j,k)*k/(n-j): j in [0..Floor(n/2)]]) >; [T(n,k): k in [0..n], n in [0..12]]; // G. C. Greubel, Mar 26 2021
-
Maple
# Uses function PMatrix from A357368. PMatrix(10, n -> combinat:-fibonacci(n+1)); # Peter Luschny, Oct 19 2022
-
Mathematica
T[n_, k_]:= If[n==0, 1, Sum[Binomial[n-j, j]*Binomial[n-j, k]*k/(n-j), {j, 0, Floor[n/2]}]]; Table[T[n, k], {n,0,12}, {k,0,n}]//Flatten (* G. C. Greubel, Mar 26 2021 *)
-
Sage
def T(n,k): return 1 if n==0 else sum( binomial(n-j,j)*binomial(n-j,k)*k/(n-j) for j in (0..n//2) ) flatten([[T(n,k) for k in [0..n]] for n in [0..12]]) # G. C. Greubel, Mar 26 2021
Formula
Recurrence: T(n+2,k+1) = T(n+1,k+1) + T(n+1,k) + T(n,k+1) + T(n,k).
Explicit formula: T(n,k) = Sum_{i=0..floor(n/2)} binomial(n-i, i)*binomial(n-i, k)*k/(n-i), for n > 0.
G.f.: (1-x-x^2)/(1-(1+y)*x-(1+y)*x^2). - Philippe Deléham, Feb 21 2012
Sum_{k=0..n} T(n,k)*x^(n-k) = A000012(n), A155020(n), A154964(n), A154968(n), A154996(n), A154997(n), A154999(n), A155000(n), A155001(n), A155017(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, respectively.
Sum_{k=0..n} T(n,k)*x^k = A000007(n), A155020(n), A155116(n), A155117(n), A155119(n), A155127(n), A155130(n), A155132(n), A155144(n), A155157(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, respectively. - Philippe Deléham, Feb 21 2012
Sum_{k=0..n} T(n, k)*(m-1)^k = (1/m)*[n=0] - (m-1)*(i*sqrt(m))^(n-2)*ChebyshevU(n, -i*sqrt(m)/2). - G. C. Greubel, Mar 26 2021
Sum_{k=0..n} k * T(n,k) = A291385(n-1) for n>=1. - Alois P. Heinz, Sep 29 2022
Extensions
Typos in two terms corrected by Alois P. Heinz, Aug 08 2015
A200139 Triangle T(n,k), read by rows, given by (1,1,0,0,0,0,0,0,0,...) DELTA (1,0,0,0,0,0,0,0,0,...) where DELTA is the operator defined in A084938.
1, 1, 1, 2, 3, 1, 4, 8, 5, 1, 8, 20, 18, 7, 1, 16, 48, 56, 32, 9, 1, 32, 112, 160, 120, 50, 11, 1, 64, 256, 432, 400, 220, 72, 13, 1, 128, 576, 1120, 1232, 840, 364, 98, 15, 1, 256, 1280, 2816, 3584, 2912, 1568, 560, 128, 17, 1, 512, 2816, 6912, 9984, 9408, 6048, 2688, 816, 162, 19, 1
Offset: 0
Comments
Riordan array ((1-x)/(1-2x),x/(1-2x)).
T(n,k) is the number of ways to place n unlabeled objects into any number of labeled bins (with at least one object in each bin) and then designate k of the bins. - Geoffrey Critzer, Nov 18 2012
Apparently, rows of this array are unsigned diagonals of A028297. - Tom Copeland, Oct 11 2014
Unsigned A118800, so my conjecture above is true. - Tom Copeland, Nov 14 2016
Examples
Triangle begins: 1 1, 1 2, 3, 1 4, 8, 5, 1 8, 20, 18, 7, 1 16, 48, 56, 32, 9, 1 32, 112, 160, 120, 50, 11, 1
Crossrefs
Programs
-
Mathematica
nn=15;f[list_]:=Select[list,#>0&];Map[f,CoefficientList[Series[(1-x)/(1-2x-y x) ,{x,0,nn}],{x,y}]]//Grid (* Geoffrey Critzer, Nov 18 2012 *)
Formula
T(n,k) = 2*T(n-1,k)+T(n-1,k-1) with T(0,0)=T(1,0)=T(1,1)=1 and T(n,k)=0 for k<0 or for n
Sum_{k, 0<=k<=n} T(n,k)*x^k = A000007(n), A011782(n), A025192(n), A002001(n), A005054(n), A052934(n), A055272(n), A055274(n), A055275(n), A052268(n), A055276(n), A196731(n) for n=-1,0,1,2,3,4,5,6,7,8,9,10 respectively.
G.f.: (1-x)/(1-(2+y)*x).
T(n,k) = Sum_j>=0 T(n-1-j,k-1)*2^j.
T = A007318*A059260, so the row polynomials of this entry are given umbrally by p_n(x) = (1 + q.(x))^n, where q_n(x) are the row polynomials of A059260 and (q.(x))^k = q_k(x). Consequently, the e.g.f. is exp[tp.(x)] = exp[t(1+q.(x))] = e^t exp(tq.(x)) = [1 + (x+1)e^((x+2)t)]/(x+2), and p_n(x) = (x+1)(x+2)^(n-1) for n > 0. - Tom Copeland, Nov 15 2016
T^(-1) = A130595*(padded A130595), differently signed A118801. Cf. A097805. - Tom Copeland, Nov 17 2016
The n-th row polynomial in descending powers of x is the n-th Taylor polynomial of the rational function (1 + x)/(1 + 2*x) * (1 + 2*x)^n about 0. For example, for n = 4, (1 + x)/(1 + 2*x) * (1 + 2*x)^4 = (8*x^4 + 20*x*3 + 18*x^2 + 7*x + 1) + O(x^5). - Peter Bala, Feb 24 2018
A202064 Triangle T(n,k), read by rows, given by (2, -1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, 1/2, -1/2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.
1, 2, 0, 3, 1, 0, 4, 4, 0, 0, 5, 10, 1, 0, 0, 6, 20, 6, 0, 0, 0, 7, 35, 21, 1, 0, 0, 0, 8, 56, 56, 8, 0, 0, 0, 0, 9, 84, 126, 36, 1, 0, 0, 0, 0, 10, 120, 252, 120, 10, 0, 0, 0, 0, 0, 11, 165, 462, 330, 55, 1, 0, 0, 0, 0, 0
Offset: 0
Comments
Riordan array (x/(1-x)^2, x^2/(1-x)^2).
Mirror image of triangle in A119900.
From Gus Wiseman, Jul 07 2025: (Start)
Also the number of subsets of {1..n} containing n with k maximal runs (sequences of consecutive elements increasing by 1). For example, row n = 5 counts the following subsets:
{5} {1,5} {1,3,5}
{4,5} {2,5}
{3,4,5} {3,5}
{2,3,4,5} {1,2,5}
{1,2,3,4,5} {1,4,5}
{2,3,5}
{2,4,5}
{1,2,3,5}
{1,2,4,5}
{1,3,4,5}
For anti-runs instead of runs we have A053538.
(End)
Examples
Triangle begins : 1 2, 0 3, 1, 0 4, 4, 0, 0 5, 10, 1, 0, 0 6, 20, 6, 0, 0, 0 7, 35, 21, 1, 0, 0, 0 8, 56, 56, 8, 0, 0, 0, 0
Crossrefs
Programs
-
Mathematica
Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&Length[Split[#,#2==#1+1&]]==k&]],{n,12},{k,n}] (* Gus Wiseman, Jul 07 2025 *)
Formula
G.f.: 1/((1-x)^2-y*x^2).
Sum_{k, 0<=k<=n} T(n,k)*x^k = A000027(n+1), A000079(n), A000129(n+1), A002605(n+1), A015518(n+1), A063727(n), A002532(n+1), A083099(n+1), A015519(n+1), A003683(n+1), A002534(n+1), A083102(n), A015520(n+1), A091914(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 10, 11, 12, 13 respectively.
T(n,k) = binomial(n+1,2k+1).
T(n,k) = 2*T(n-1,k) + T(n-2,k-1) - T(n-2,k), T(0,0) = 1, T(1,0) = 2, T(1,1) = 0 and T(n,k) = 0 if k<0 or if k>n. - Philippe Deléham, Mar 15 2012
A086872 Triangle T(n, k) read by rows; given by [1, 2, 3, 4, 5, 6, ..] DELTA [1, 4, 9, 16, 25, 36, ...] where DELTA is the operator defined in A084938.
1, 1, 1, 3, 8, 5, 15, 75, 121, 61, 105, 840, 2478, 3128, 1385, 945, 11025, 51030, 115350, 124921, 50521, 10395, 166320, 1105335, 3859680, 7365633, 7158128, 2702765
Offset: 0
Examples
Triangle begins: 1; 1, 1; 3, 8, 5; 15, 75, 121, 61; 105, 840, 2478, 3128, 1385; 945, 11025, 51030, 115350, 124921, 50521; 10395, 166320, 1105335, 3859680, 7365633, 7158128, 2702765 ; ...
Links
- Alois P. Heinz, Rows n = 0..140, flattened
Crossrefs
A133336 Triangle T(n,k), 0 <= k <= n, read by rows, given by [1,1,1,1,1,1,1,...] DELTA [0,1,0,1,0,1,0,1,0,...] where DELTA is the operator defined in A084938.
1, 1, 0, 2, 1, 0, 5, 5, 1, 0, 14, 21, 9, 1, 0, 42, 84, 56, 14, 1, 0, 132, 330, 300, 120, 20, 1, 0, 429, 1287, 1485, 825, 225, 27, 1, 0, 1430, 5005, 7007, 5005, 1925, 385, 35, 1, 0, 4862, 19448, 32032, 28028, 14014, 4004, 616, 44, 1, 0, 16796, 75582, 143208, 148512, 91728, 34398, 7644, 936, 54, 1, 0
Offset: 0
Comments
Diagonal sums: A119370. - Philippe Deléham, Nov 09 2009
Examples
Triangle begins: 1; 1, 0; 2, 1, 0; 5, 5, 1, 0; 14, 21, 9, 1, 0; 42, 84, 56, 14, 1, 0; 132, 330, 300, 120, 20, 1, 0; 429, 1287, 1485, 825, 225, 27, 1, 0;
Links
- G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
- W. Y. C. Chen, T. Mansour and S. H. F. Yan, Matchings avoiding partial patterns, The Electronic Journal of Combinatorics 13, 2006, #R112, Theorem 3.3.
Programs
-
Magma
[[Binomial(n-1,k)*Binomial(2*n-k,n)/(n+1): k in [0..n]]: n in [0..10]]; // G. C. Greubel, Feb 05 2018
-
Mathematica
Table[Binomial[n-1,k]*Binomial[2*n-k,n]/(n+1), {n,0,10}, {k,0,n}] // Flatten (* G. C. Greubel, Feb 05 2018 *)
-
PARI
for(n=0,10, for(k=0,n, print1(binomial(n-1,k)*binomial(2*n-k,n)/(n+1), ", "))) \\ G. C. Greubel, Feb 05 2018
Formula
Sum_{k=0..n} T(n,k)*x^k = A000108(n), A001003(n), A007564(n), A059231(n), A078009(n), A078018(n), A081178(n), A082147(n), A082181(n), A082148(n), A082173(n) for x = 0,1,2,3,4,5,6,7,8,9,10 respectively.
Sum_{k=0..n} T(n,k)*x^(n-k) = A000007(n), A001003(n), A107841(n), A131763(n), A131765(n), A131846(n), A131926(n), A131869(n), A131927(n) for x = 0, 1, 2, 3, 4, 5, 6, 7, 8 respectively. - Philippe Deléham, Nov 05 2007
Sum_{k=0..n} T(n,k)*(-2)^k*5^(n-k) = A152601(n). - Philippe Deléham, Dec 10 2008
T(n,k) = binomial(n-1,k)*binomial(2n-k,n)/(n+1), k <= n. - Philippe Deléham, Nov 02 2009
Comments