|
%I #22 Feb 15 2022 07:34:38
%S 1,0,2,0,3,3,0,4,8,4,0,5,15,15,5,0,6,24,36,24,6,0,7,35,70,70,35,7,0,8,
%T 48,120,160,120,48,8,0,9,63,189,315,315,189,63,9,0,10,80,280,560,700,
%U 560,280,80,10,0,11,99,396,924,1386,1386,924,396,99,11
%N Triangle read by rows, T(n,k) = (n+1)*binomial(n-1,k-1).
%C Row sums = A057711, starting (1, 2, 6, 16, 40, 96, ...).
%C T(2n,n) gives A033876(n-1) for n > 0. - _Alois P. Heinz_, Sep 04 2014
%H G. C. Greubel, <a href="/A127952/b127952.txt">Rows n=0..100 of triangle, flattened</a>
%e First few rows of the triangle:
%e 1;
%e 0, 2;
%e 0, 3, 3;
%e 0, 4, 8, 4;
%e 0, 5, 15, 15, 5;
%e 0, 6, 24, 36, 24, 6;
%e 0, 7, 35, 70, 70, 35, 7;
%e ...
%p T := (n,k) -> (n+1)*binomial(n-1, k-1);
%p seq(print(seq(T(n,k),k= 0..n)),n=0..6); # _Peter Luschny_, Sep 02 2014
%t Table[(n+1)*Binomial[n-1, k-1], {n, 0, 10}, {k, 0, n}] // Flatten (* _G. C. Greubel_, May 05 2018 *)
%o (PARI) for(n=0,10, for(k=0,n, print1(if(n==0, 1,(n+1)*binomial(n-1,k-1)), ", "))) \\ _G. C. Greubel_, May 05 2018
%o (Magma) [[n le 0 select 1 else (n+1)*Binomial(n-1,k-1): k in [0..n]]: n in [0..10]]; // _G. C. Greubel_, May 05 2018
%Y Cf. A007318, A126615, A057711.
%K nonn,tabl
%O 0,3
%A _Gary W. Adamson_, Feb 09 2007
%E Name corrected after a suggestion of _Joerg Arndt_ by _Peter Luschny_, Sep 02 2014
|
