[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A089668
a(n) = S2(n,5), where S2(n, t) = Sum_{k=0..n} k^t *(Sum_{j=0..k} binomial(n,j))^2.
5
0, 4, 521, 17136, 320716, 4356560, 48024786, 456843520, 3893995184, 30487086144, 223052123830, 1544098243424, 10208488021176, 64917814932256, 399310478637476, 2386386863086080, 13906802738650816, 79261768839946496, 442921922267640894
OFFSET
0,2
LINKS
Jun Wang and Zhizheng Zhang, On extensions of Calkin's binomial identities, Discrete Math., 274 (2004), 331-342.
FORMULA
a(n) = (1/128)*n*(21*n^5 + 61*n^4 + 55*n^3 + 15*n^2 - 28*n + 4)*4^n - (1/48)*n^2*(n-1)^2*(3*n-5)*(n^2 + 4*n - 6)*binomial(2*n, n)/((2*n-1)*(2*n-3)). (See Wang and Zhang, p. 338)
From G. C. Greubel, May 25 2022: (Start)
a(n) = (1/2)*(n*(21*n^5 + 61*n^4 + 55*n^3 + 15*n^2 - 28*n + 4)*4^(n-3) - (n-1)*(3*n-5)*(n^2 + 4*n - 6)*binomial(n+1, 3)*Catalan(n-2)).
G.f.: x*( 4*(1 + 103*x + 1012*x^2 + 1688*x^3 + 512*x^4 - 256*x^5) - 3*x*(1 + 54*x + 26*x^2 - 156*x^3 - 104*x^4 + 320*x^5 -240*x^6)*sqrt(1-4*x) )/(1-4*x)^7. (End)
MATHEMATICA
Table[(1/2)*(n*(21*n^5+61*n^4+55*n^3+15*n^2-28*n+4)*4^(n-3) -(n-1)*(3*n-5)*(n^2 + 4*n-6)*Binomial[n+1, 3]*CatalanNumber[n-2]), {n, 0, 40}] (* G. C. Greubel, May 25 2022 *)
PROG
(SageMath) [(1/2)*(n*(21*n^5 + 61*n^4 + 55*n^3 + 15*n^2 - 28*n + 4)*4^(n-3) - (n-1)*(3*n-5)*(n^2 + 4*n - 6)*binomial(n+1, 3)*catalan_number(n-2)) for n in (0..40)] # G. C. Greubel, May 25 2022
CROSSREFS
Sequences of S2(n, t): A003583 (t=0), A089664 (t=1), A089665 (t=2), A089666 (t=3), A089667 (t=4), this sequence (t=5).
Sequence in context: A291830 A368370 A003393 * A257922 A377786 A083284
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jan 04 2004
STATUS
approved