OFFSET
0,4
COMMENTS
The limiting ratio is (alternating) A222134, 5 times a root of the polynomial 5x^2+x-1 in the denominator of the g.f.
LINKS
Index entries for linear recurrences with constant coefficients, signature (1,7,-2,-6,-4,-25,5,25).
FORMULA
G.f. -x*(1-6*x^2-10*x^3-5*x^4+5*x^5) / ( (x-1)*(1+x)*(5*x^2+x-1)*(5*x^4+x^2-1) ). - R. J. Mathar, Nov 05 2012
MAPLE
MATHEMATICA
Clear[a, f, a0, t]
f[0, a_] := 0; f[1, a_] := 1;
f[n_, a_] := f[n, a] = f[n - 1, a] + a*f[n - 2, a];
t[n_, m_, a_] := f[m + 1, a] + f[n + 1 - m, a] - f[n + 1, a];
a = 5;
a0[n_] := Sum[t[n - m - 1, m, a], {m, 0, Floor[(n - 1)/2]}];
Table[a0[n], {n, 0, 30}]
PROG
(PARI) a(n)=([0, 1, 0, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0, 0; 0, 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 0, 1, 0, 0, 0; 0, 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 0, 1; 25, 5, -25, -4, -6, -2, 7, 1]^n*[0; 1; 1; 2; -3; -2; -32; -81])[1, 1] \\ Charles R Greathouse IV, May 15 2016
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Roger L. Bagula, May 20 2010
EXTENSIONS
New name from R. J. Mathar, May 15 2016
STATUS
approved