|
%I #13 Nov 19 2021 04:41:41
%S 1,3,1,5,7,1,7,25,11,1,9,63,61,15,1,11,129,231,113,19,1,13,231,681,
%T 575,181,23,1,15,377,1683,2241,1159,265,27,1,17,575,3653,7183,5641,
%U 2047,365,31,1,19,833,7183,19825,22363,11969,3303,481,35,1
%N Riordan array ((1+x)/(1-x)^2, x(1+x)^2/(1-x)^2).
%C Triangle formed of odd-numbered columns of the Delannoy triangle A008288.
%H G. C. Greubel, <a href="/A216182/b216182.txt">Rows n = 0..50 of the triangle, flattened</a>
%F T(2n, n) = A108448(n+1).
%F Sum_{k=0..n} T(n,k) = A073717(n+1).
%F From _G. C. Greubel_, Nov 19 2021: (Start)
%F T(n, k) = A008288(n+k+1, 2*k+1).
%F T(n, k) = hypergeometric([-n+k, -2*k-1], [1], 2). (End)
%e Triangle begins
%e 1;
%e 3, 1;
%e 5, 7, 1;
%e 7, 25, 11, 1;
%e 9, 63, 61, 15, 1;
%e 11, 129, 231, 113, 19, 1;
%e 13, 231, 681, 575, 181, 23, 1;
%e 15, 377, 1683, 2241, 1159, 265, 27, 1;
%e 17, 575, 3653, 7183, 5641, 2047, 365, 31, 1;
%e ...
%t A216182[n_, k_]:= Hypergeometric2F1[-n +k, -2*k-1, 1, 2];
%t Table[A216182[n, k], {n,0,12}, {k,0,n}]//Flatten (* _G. C. Greubel_, Nov 19 2021 *)
%o (Sage)
%o def A216182(n,k): return simplify( hypergeometric([-n+k, -2*k-1], [1], 2) )
%o flatten([[A216182(n,k) for k in (0..n)] for n in (0..12)]) # _G. C. Greubel_, Nov 19 2021
%Y Cf. (columns:) A005408, A001845, A001847, A001849, A008419.
%Y Cf. Diagonals: A000012, A004767, A060820.
%Y Cf. A008288 (Delannoy triangle), A114123 (even-numbered columns of A008288).
%K nonn,tabl
%O 0,2
%A _Philippe Deléham_, Mar 11 2013
|
