OFFSET
0,3
LINKS
Index entries for linear recurrences with constant coefficients, signature (10,-45,120,-210,252,-210,120,-45,10,-1).
FORMULA
a(n) = (n-1) * n * (n+1) * (2*n+1) * (967*n^5+3868*n^4+6005*n^3+5444*n^2+2844*n+1008) / 9072.
MATHEMATICA
a[n_] := Coefficient[Expand[Sum[k * (x^k + x^(-k)), {k, 0, n}]^5], x, 0]; Array[a, 30, 0] (* Amiram Eldar, Dec 16 2018 *)
PROG
(PARI) {a(n) = polcoeff((sum(k=0, n, k*(x^k+x^(-k))))^5, 0, x)}
(PARI) {a(n) = (n-1)*n*(n+1)*(2*n+1)*(967*n^5+3868*n^4+6005*n^3+5444*n^2+2844*n+1008)/9072}
(GAP) List([0..25], n->(n-1)*n*(n+1)*(2*n+1)*(967*n^5+3868*n^4+6005*n^3+5444*n^2+2844*n+1008)/9072); # Muniru A Asiru, Dec 16 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Seiichi Manyama, Dec 16 2018
STATUS
approved