A029111 Expansion of 1/((1-x)(1-x^6)(1-x^8)(1-x^9)).

1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 4, 4, 5, 5, 6, 7, 8, 9, 11, 11, 12, 13, 14, 15, 18, 19, 21, 23, 24, 25, 28, 29, 32, 35, 37, 39, 43, 44, 47, 50, 53, 56, 61, 63, 67, 71, 74, 77, 83, 86, 91, 96, 100, 104, 111, 114, 120, 126

Offset

0,7

Links

Table of n, a(n) for n=0..57.

Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 1, -1, 1, 0, -1, 0, 0, 0, -1, 0, 1, -1, 1, 0, 0, 0, 0, 1, -1).

Formula

a(0)=1, a(1)=1, a(2)=1, a(3)=1, a(4)=1, a(5)=1, a(6)=2, a(7)=2, a(8)=3, a(9)=4, a(10)=4, a(11)=4, a(12)=5, a(13)=5, a(14)=6, a(15)=7, a(16)=8, a(17)=9, a(18)=11, a(19)=11, a(20)=12, a(21)=13, a(22)=14, a(23)=15, a(n)=a(n-1)+a(n-6)-a(n-7)+a(n-8)-a(n-10)-a(n-14)+a(n-16)- a(n-17)+ a(n-18)+ a(n-23)-a (n-24). - Harvey P. Dale, Jan 02 2016

Mathematica

CoefficientList[Series[1/((1-x)(1-x^6)(1-x^8)(1-x^9)), {x, 0, 60}], x] (* or *) LinearRecurrence[{1, 0, 0, 0, 0, 1, -1, 1, 0, -1, 0, 0, 0, -1, 0, 1, -1, 1, 0, 0, 0, 0, 1, -1}, {1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 4, 4, 5, 5, 6, 7, 8, 9, 11, 11, 12, 13, 14, 15}, 60] (* Harvey P. Dale, Jan 02 2016 *)

Crossrefs

Sequence in context: A112325 A135304 A249037 * A228944 A213718 A092038

Adjacent sequences: A029108 A029109 A029110 * A029112 A029113 A029114

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved