cp's OEIS Frontend

A167024 Triangle read by rows: T(n, m) = binomial(n, m)* Sum_{k=0..m} binomial(n, k) for 0 <= m <= n.

%I A167024 #29 Dec 28 2018 23:24:59
%S A167024 1,1,2,1,6,4,1,12,21,8,1,20,66,60,16,1,30,160,260,155,32,1,42,330,840,
%T A167024 855,378,64,1,56,609,2240,3465,2520,889,128,1,72,1036,5208,11410,
%U A167024 12264,6916,2040,256,1,90,1656,10920,32256,48132,39144,18072,4599,512
%N A167024 Triangle read by rows: T(n, m) = binomial(n, m)* Sum_{k=0..m} binomial(n, k) for 0 <= m <= n.
%C A167024 Row sums are A032443(n).
%H A167024 Muniru A Asiru, <a href="/A167024/b167024.txt">Rows n=0..100 of triangle, flattened</a>
%F A167024 T(n, m) = binomial(n,m)*A008949(n,m). [Nov 03 2009]
%F A167024 G.f.: (1/x)*d(arctanh(N(x,y)))/dy, where N(x,y) is g.f. of Narayana numbers (A001263). - _Vladimir Kruchinin_, Apr 11 2018
%F A167024 T(n, k) = binomial(n, k)*(2^n - binomial(n, 1+k)*hypergeom([1, 1+k-n], [k+2], -1)). - _Peter Luschny_, Dec 28 2018
%e A167024 1,
%e A167024 1, 2,
%e A167024 1, 6, 4,
%e A167024 1, 12, 21, 8,
%e A167024 1, 20, 66, 60, 16,
%e A167024 1, 30, 160, 260, 155, 32,
%e A167024 1, 42, 330, 840, 855, 378, 64,
%e A167024 1, 56, 609, 2240, 3465, 2520, 889, 128,
%e A167024 1, 72, 1036, 5208, 11410, 12264, 6916, 2040, 256,
%e A167024 1, 90, 1656, 10920, 32256, 48132, 39144, 18072, 4599, 512,
%e A167024 1, 110, 2520, 21120, 81060, 160776, 178080, 116160, 45585, 10230, 1024
%p A167024 T:=(n, m)-> binomial(n, m)*add(binomial(n, k), k=0..m): seq(seq(T(n, m), m=0..n), n=0..9); # _Muniru A Asiru_, Dec 28 2018
%t A167024 T[m_, n_] = If[m == 0 && n == 0, 1, Sum[Binomial[m, n]*Binomial[m, k], {k, 0, n}]]
%t A167024 Flatten[Table[Table[T[m, n], {n, 0, m}], {m, 0, 10}]]
%t A167024 T[n_,k_] := Binomial[n, k] (2^n - Binomial[n, k + 1] Hypergeometric2F1[1, 1 -n + k, k + 2, -1]); Table[T[n,k], {n,0,8}, {k,0,n}] // Flatten (* _Peter Luschny_, Dec 28 2018 *)
%o A167024 (GAP) t:=Flat(List([0..10],n->List([0..n],m->Binomial(n,m)*Sum([0..m],k->Binomial(n,k)))));; Print(t); # _Muniru A Asiru_, Dec 28 2018
%Y A167024 Cf. A008949, A032443.
%K A167024 nonn,tabl
%O A167024 0,3
%A A167024 _Roger L. Bagula_, Oct 27 2009
%E A167024 Introduced OEIS notational standards in the definition - The Assoc. Editors of the OEIS, Nov 05 2009