OFFSET
0,5
COMMENTS
Column 7 of A226048.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = (1/4)*(binomial(2*n, 7) + 2*binomial(n-1, 3)*(1/2)*(1-(-1)^n)) = (n-3)*(n-2)*(n-1)(2*n*(2n-5)*(2*n-3)*(2*n-1)-105*(-1)^n+105)/2520.
G.f.: 2*x^4*(2*x^7 +7*x^6 +48*x^5 +67*x^4 +82*x^3 +37*x^2 +12*x +1) / ((x+1)^4*(x-1)^8). [Bruno Berselli, Aug 27 2013]
MATHEMATICA
CoefficientList[Series[2 x^4 (2 x^7 + 7 x^6 + 48 x^5 + 67 x^4 + 82 x^3 + 37 x^2 + 12 x + 1) / ((x + 1)^4 (x - 1)^8), {x, 0, 40}], x] (* Vincenzo Librandi, Aug 27 2013 *)
PROG
(R) a <- 0
for(n in 1:40) a[n+1] <- (1/4)*(choose(2*(n+2), 7) + 2*choose(n+1, 3)*(1/2)*(1-(-1)^n))
a
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Yosu Yurramendi, María Merino, Aug 26 2013
EXTENSIONS
Formula adapted to the offset from Bruno Berselli, Aug 27 2013
STATUS
approved