A029182 Expansion of 1/((1-x^2)(1-x^4)(1-x^7)(1-x^9)).

1, 0, 1, 0, 2, 0, 2, 1, 3, 2, 3, 3, 4, 4, 5, 5, 7, 6, 9, 7, 11, 9, 13, 11, 15, 14, 17, 17, 20, 20, 23, 23, 27, 26, 31, 30, 36, 34, 40, 39, 45, 44, 50, 50, 56, 56, 62, 62, 69, 69, 76, 76, 84, 84, 92, 92, 101, 101, 110, 110

Offset

0,5

Links

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

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

Formula

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

Mathematica

CoefficientList[Series[1/((1-x^2)(1-x^4)(1-x^7)(1-x^9)), {x, 0, 60}], x] (* or *) LinearRecurrence[{0, 1, 0, 1, 0, -1, 1, 0, 0, 0, -2, 0, 0, 0, 1, -1, 0, 1, 0, 1, 0, -1}, {1, 0, 1, 0, 2, 0, 2, 1, 3, 2, 3, 3, 4, 4, 5, 5, 7, 6, 9, 7, 11, 9}, 60] (* Harvey P. Dale, Dec 10 2013 *)

Crossrefs

Sequence in context: A101048 A204389 A070102 * A035373 A240138 A341975

Adjacent sequences: A029179 A029180 A029181 * A029183 A029184 A029185

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved