OFFSET
0,2
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,-12,0,-86,0,-300,0,-625).
FORMULA
G.f.: (1+x)*(1-3*x+18*x^2-78*x^3+45*x^4-175*x^5)/(1+6*x^2+25*x^4)^2.
E.g.f.: cos(2*x)*((1 - x)*cosh(x) + (1 + 3*x)*sinh(x)) - sin(2*x)*((1 + x)*cosh(x) - (1 - 3*x)*sinh(x)). - Stefano Spezia, Jul 01 2023
MATHEMATICA
nmax = 30;
h[n_, k_] := Binomial[n, k]*(-1)^(Quotient[n+1, 2] - Quotient[k, 2]+n-k);
H = Table[h[n, k], {n, 0, nmax}, {k, 0, nmax}];
Cn = Table[Binomial[n, k], {n, 0, nmax}, {k, 0, nmax}];
L = MatrixLog[H.Inverse[Cn].H];
Total /@ Rest@L (* Jean-François Alcover, Apr 08 2024 *)
PROG
(PARI) {a(n)=polcoeff((1+x)*(1-3*x+18*x^2-78*x^3+45*x^4-175*x^5)/(1+6*x^2+25*x^4 +x*O(x^n))^2, n)}
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Paul D. Hanna, Apr 28 2006
STATUS
approved