%I #12 Mar 28 2020 05:29:22
%S 1,0,1,0,1,1,0,3,2,1,0,2,7,3,1,0,10,10,12,4,1,0,5,33,25,18,5,1,0,35,
%T 42,78,48,25,6,1,0,14,144,144,155,80,33,7,1,0,126,168,420,356,275,122,
%U 42,8,1,0,42,610,723,1018,736,450,175,52,9,1
%N Triangle read by rows, Riordan array (1, (2+(x-1)/(2*x^2)*(1-sqrt(1-4*x^2)))/ sqrt(1-4*x^2)).
%e Table starts:
%e [n] [k=0,1,2,...] row sum
%e [0] [1] 1
%e [1] [0, 1] 1
%e [2] [0, 1, 1] 2
%e [3] [0, 3, 2, 1] 6
%e [4] [0, 2, 7, 3, 1] 13
%e [5] [0, 10, 10, 12, 4, 1] 37
%e [6] [0, 5, 33, 25, 18, 5, 1] 87
%e [7] [0, 35, 42, 78, 48, 25, 6, 1] 235
%e [8] [0, 14, 144, 144, 155, 80, 33, 7, 1] 578
%e [9] [0, 126, 168, 420, 356, 275, 122, 42, 8, 1] 1518
%p S := proc(n, k) option remember; local ecn:
%p if n = 0 then return n^k fi;
%p ecn := n -> n!/(iquo(n,2)!^2)/(iquo(n,2)+1);
%p add(ecn(i)*S(n-1,k-i), i=1..k-n+1) end:
%p A275327 := (n, k) -> S(k, n):
%p seq(seq(A275327(n, k),k=0..n),n=0..8);
%t (* The function RiordanArray is defined in A256893. *)
%t RiordanArray[1&, (2+(#-1)/(2#^2) (1-Sqrt[1-4#^2]))/Sqrt[1-4#^2]&, 11] // Flatten (* _Jean-François Alcover_, Jul 16 2019 *)
%o (Sage) # uses[riordan_array from A256893]
%o s = (2+(x-1)/(2*x^2)*(1-sqrt(1-4*x^2)))/sqrt(1-4*x^2)
%o riordan_array(1, s, 12)
%Y Cf. A057977 (column 1), A128899, A275328.
%K nonn,tabl
%O 0,8
%A _Peter Luschny_, Aug 16 2016
|