%I #23 Jul 23 2017 21:43:50
%S 1,4,1,10,5,1,20,16,6,1,35,43,23,7,1,56,109,74,31,8,1,84,279,223,114,
%T 40,9,1,120,750,666,387,164,50,10,1,165,2148,2028,1278,612,225,61,11,
%U 1,220,6529,6364,4216,2188,910,298,73,12,1,286,20811,20591,14062,7698,3482,1294,384,86,13,1
%N Riordan array ( (1/(1-x))^m , x*A000108(x) ), m =4.
%H G. C. Greubel, <a href="/A185945/b185945.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%F R(n,k,m) = k*Sum_{i=0..n-k} binomial(i+m-1, m-1)*binomial(2*(n-i)-k-1, n-i-1)/(n-i), m=4, k > 0.
%F R(n,0,4) = binomial(n+3,3) = A000292(n+1).
%e Array begins
%e 1;
%e 4, 1;
%e 10, 5, 1;
%e 20, 16, 6, 1;
%e 35, 43, 23, 7, 1;
%e 56, 109, 74, 31, 8, 1;
%e 84, 279, 223, 114, 40, 9, 1;
%e 120, 750, 666, 387, 164, 50, 10, 1;
%e Production matrix begins:
%e 4, 1;
%e -6, 1, 1;
%e 10, 1, 1, 1;
%e -9, 1, 1, 1, 1;
%e 7, 1, 1, 1, 1, 1;
%e -3, 1, 1, 1, 1, 1, 1;
%e 1, 1, 1, 1, 1, 1, 1, 1;
%e 0, 1, 1, 1, 1, 1, 1, 1, 1;
%e 0, 1, 1, 1, 1, 1, 1, 1, 1, 1;
%e 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1;
%e ... _Philippe Deléham_, Sep 20 2014
%t r[n_, k_, m_] := k*Sum[ Binomial[i + m - 1, m - 1]*Binomial[2*(n - i) - k - 1, n - i - 1]/(n - i), {i, 0, n - k}]; r[n_, 0, 4] = Binomial[n + 3, 3]; Table[ r[n, k, 4], {n, 0, 10}, {k, 0, n}] // Flatten (* _Jean-François Alcover_, Feb 21 2013 *)
%Y Cf. A091491 (m=1), A185943 (m=2), A185944 (m=3).
%Y Cf. A000108, A000292.
%K nonn,tabl
%O 0,2
%A _Vladimir Kruchinin_, Feb 07 2011
|