OFFSET
1,6
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,0,1,1,1).
FORMULA
G.f.: x*(x+1)*(x^3-x^2-1)/((x^2+1)*(x^3+x^2-1)). [Colin Barker, Oct 19 2012]
MATHEMATICA
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 1, 1, 0, 0}}; w[1] = {1, 1, 1, 1, 1}; w[n_] := w[n] = M.w[n - 1] a = Table[w[n][[1]], {n, 1, 30}]
LinearRecurrence[{0, 0, 1, 1, 1}, {1, 1, 1, 1, 1}, 60] (* Harvey P. Dale, Feb 02 2015 *)
PROG
(PARI) Vec(x*(x+1)*(x^3-x^2-1)/((x^2+1)*(x^3+x^2-1)) + O(x^70)) \\ Michel Marcus, Feb 12 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Sep 16 2006
EXTENSIONS
STATUS
approved