OFFSET
0,4
LINKS
Index entries for linear recurrences with constant coefficients, signature (7, 0, -6, 0, 1).
FORMULA
G.f.: (x(-1+x(6+5x(1+x))))/(-1+7x-6x^3+x^5) [From Harvey P. Dale, May 11 2011]
MATHEMATICA
m = 6 a[0] = 0; a[1] = 1; a[2] = 1; a[3] = 2; a[4] = 3 a[n_] := a[n] = a[n - 5] - m*a[n - 3] + (m + 1)*a[n - 1] digits = 50 aa = Table[a[n], {n, 0, digits}]
LinearRecurrence[{7, 0, -6, 0, 1}, {0, 1, 1, 2, 3}, 30] (* or *) CoefficientList[ Series[(x (-1+x (6+5 x (1+x))))/(-1+7 x-6 x^3+x^5), {x, 0, 30}], x] (* Harvey P. Dale, May 11 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 25 2005
STATUS
approved