OFFSET
1,1
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (1,1,1,1,1,1,1,1,1).
FORMULA
G.f.: x*(6+3*x-13*x^2-2*x^3-18*x^4-45*x^5-44*x^6-47*x^7-44*x^8) / (1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8-x^9). - Colin Barker, Mar 11 2016
MAPLE
A129938 := proc(n) option remember ; if n <= 9 then op(n, [6, 9, 2, 15, 14, 1, 3, 3, 9]) ; else add(A129938(n-i), i=1..9) fi ; end: seq(A129938(n), n=1..50) ; # R. J. Mathar, Sep 02 2007
MATHEMATICA
LinearRecurrence[{1, 1, 1, 1, 1, 1, 1, 1, 1}, {6, 9, 2, 15, 14, 1, 3, 3, 9}, 40] (* or *) LinearRecurrence[{1, 1, 1, 1, 1, 1, 1, 1, 1}, LetterNumber[ "fibonacci"], 40] (* Harvey P. Dale, Dec 25 2019 *)
PROG
(PARI) Vec(x*(6+3*x-13*x^2-2*x^3-18*x^4-45*x^5-44*x^6-47*x^7-44*x^8) / (1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8-x^9) + O(x^50)) \\ Colin Barker, Mar 11 2016
CROSSREFS
KEYWORD
base,easy,nonn,word
AUTHOR
Eric Angelini, Jun 09 2007
EXTENSIONS
Corrected and extended by R. J. Mathar, Sep 02 2007
STATUS
approved