OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Jun Wang and Zhizheng Zhang, On extensions of Calkin's binomial identities, Discrete Math., 274 (2004), 331-342.
FORMULA
a(n) = (1/480)*( n*(n+1)*(93*n^3 + 132*n^2 + 53*n - 38)*4^n - 4*n*(n-1)*(15*n^5 - 99*n^3 + 116*n^2 - 34*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/30)*( n*(n+1)*(93*n^3 + 132*n^2 + 53*n - 38)*4^(n-2) - (n-1)*(15*n^5 - 99*n^3 + 116*n^2 - 34*n + 6)*Catalan(n-2) ).
G.f.: x*( 4*(1 + 43*x + 160*x^2 + 96*x^3) - x*(3 + 62*x - 72*x^2 + 96*x^3 - 224*x^4 + 144*x^5)*sqrt(1-4*x) )/(1-4*x)^6. [Typo corrected by Georg Fischer, Nov 09 2022] (End)
MATHEMATICA
Table[(1/30)*(n*(n+1)*(93*n^3+132*n^2+53*n-38)*4^(n-2) -(n-1)*(15*n^5-99*n^3 + 116*n^2-34*n+6)*CatalanNumber[n-2]), {n, 0, 40}] (* G. C. Greubel, May 25 2022 *)
CoefficientList[Series[x*( 4*(1 + 43*x + 160*x^2 + 96*x^3) - x*(3 + 62*x - 72*x^2 + 96*x^3 - 224*x^4 + 144*x^5)*Sqrt[1-4*x] )/(1-4*x)^6, {x, 0, 35}], x] (* Georg Fischer, Nov 09 2022 *)
PROG
(SageMath) [(1/30)*(n*(n+1)*(93*n^3+132*n^2+53*n-38)*4^(n-2) - (n-1)*(15*n^5 - 99*n^3+116*n^2-34*n+6)*catalan_number(n-2) ) for n in (0..40)] # G. C. Greubel, May 25 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jan 04 2004
STATUS
approved