|
%I #14 Jan 31 2024 07:58:21
%S 1,4,13,47,173,678,2735,11378,48279,208410,911571,4031919,17999628,
%T 81000573,367040404,1673295419,7669312343,35319197637,163350479756,
%U 758406642839,3533447414030,16514820417166,77412170863861
%N Row sums of array in A055450.
%H G. C. Greubel, <a href="/A055451/b055451.txt">Table of n, a(n) for n = 0..250</a>
%F a(n) = Sum_{k=0..n} A055450(n, k). - _G. C. Greubel_, Jan 29 2024
%t T[n_, 0]:= 1; T[n_, k_]:= T[n, k]= If[1<=k<n/2, T[n-1, k-1] + T[n-1, k], If[k==n/2, T[n-2, k-1] + T[n-1, k-1], T[n+1, k] + T[n-1, k-1]]];
%t A055451[n_]:= A055451[n]= Sum[T[n,k], {k,0,n}];
%t Table[A055451[n], {n,0,40}] (* _G. C. Greubel_, Jan 29 2024 *)
%o (Magma)
%o B:=Binomial; G:=Gamma; F:=Factorial;
%o p:= func< n,k,j | B(n-2*k+j-1, j)*G(n-k+j+3/2)/(F(j)*G(n-k+3/2)*B(n-k+j+2, j)) >;
%o f:= func< n,k | (n-k+1)*Binomial(n+k, k)/(n+1) >;
%o function T(n,k) // T = A055450
%o if k lt n/2 then return f(n-k+1, k);
%o else return Round(Catalan(n-k+1)*(&+[p(n,k,j)*(-4)^j: j in [0..n]]));
%o end if;
%o end function;
%o A055451:= func< n | (&+[T(n,k): k in [0..n]]) >;
%o [A055451(n): n in [0..40]]; // _G. C. Greubel_, Jan 29 2024
%o (SageMath)
%o def f(n,k): return (n-k+1)*binomial(n+k, k)/(n+1)
%o def T(n,k): # T = A055450
%o if k<n/2: return f(n-k+1,k)
%o else: return round(catalan_number(n-k+1)*hypergeometric([n-2*k, (3+2*(n-k))/2], [3+n-k], -4))
%o def A055451(n): return sum(T(n,k) for k in range(n+1))
%o [A055451(n) for n in range(41)] # _G. C. Greubel_, Jan 30 2024
%Y Cf. A055450, A055452, A055453, A055454, A055455.
%K nonn
%O 0,2
%A _Clark Kimberling_, May 18 2000
|
