A029017 Expansion of 1/((1-x)(1-x^2)(1-x^6)(1-x^7)).

1, 1, 2, 2, 3, 3, 5, 6, 8, 9, 11, 12, 15, 17, 21, 23, 27, 29, 34, 37, 43, 47, 53, 57, 64, 69, 77, 83, 92, 98, 108, 115, 126, 134, 146, 155, 168, 178, 192, 203, 218, 230, 247, 260, 278, 292, 311, 326, 347, 364, 386, 404

Offset

0,3

Comments

Number of partitions of n into parts 1, 2, 6, and 7. - Michel Marcus, Oct 27 2014

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

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

Mathematica

CoefficientList[Series[1/((1 - x) (1 - x^2) (1 - x^6) (1 - x^7)), {x, 0, 60}], x] (* Vincenzo Librandi, Oct 27 2014 *)

Prog

(PARI) a(n)=round((n+8)*(2*n^2+32*n+83+21*(-1)^n)/1008+(1-n%3)*(1-3*(-1)^n)/18) \\ Tani Akinari, Oct 27 2014
(Magma) [Round((n+8)*(2*n^2+32*n+83+21*(-1)^n)/1008+(1-n mod 3)*(1-3*(-1)^n)/18): n in [0..60]]; // Vincenzo Librandi, Oct 27 2014
(PARI) Vec(1/((1-x)*(1-x^2)*(1-x^6)*(1-x^7)) + O(x^30)) \\ Michel Marcus, Oct 27 2014

Crossrefs

Sequence in context: A050318 A130841 A002095 * A035371 A035577 A002723

Adjacent sequences: A029014 A029015 A029016 * A029018 A029019 A029020

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved