A025873 Expansion of 1/((1-x^4)(1-x^8)(1-x^11)).

1, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 2, 0, 0, 1, 3, 0, 0, 2, 3, 0, 1, 2, 4, 0, 1, 3, 4, 0, 2, 3, 5, 1, 2, 4, 5, 1, 3, 4, 6, 2, 3, 5, 7, 2, 4, 5, 8, 3, 4, 6, 9, 3, 5, 7, 10, 4, 5, 8, 11, 4, 6, 9, 12, 5, 7, 10, 13, 5, 8, 11, 14, 6, 9, 12, 15

Offset

0,9

Links

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

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

Formula

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

Mathematica

CoefficientList[Series[1/((1-x^4)(1-x^8)(1-x^11)), {x, 0, 80}], x] (* or *) LinearRecurrence[{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, -1, 0, 0, -1, 0, 0, 0, -1, 0, 0, 0, 1}, {1, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 2, 0, 0, 1, 3, 0, 0, 2, 3, 0, 1}, 80] (* Harvey P. Dale, Jun 03 2013 *)

Crossrefs

Sequence in context: A025875 A026840 A357648 * A208589 A112171 A112172

Adjacent sequences: A025870 A025871 A025872 * A025874 A025875 A025876

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved