login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A140952
Expansion of 1/((1-x^2)*(1-x^3)*(1-x^5)*(1-x^7)*(1-x^11)).
3
1, 0, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 10, 11, 13, 15, 17, 19, 22, 25, 28, 31, 35, 39, 43, 48, 53, 58, 64, 70, 77, 84, 91, 100, 108, 117, 127, 137, 148, 159, 172, 184, 198, 212, 227, 243, 259, 277, 295, 314, 334, 355, 377, 400, 424, 449, 475, 502, 531, 560
OFFSET
0,6
COMMENTS
Number of partitions of n into the first 5 primes.
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,1,1,0,0,0,0,-1,-1,0,1,0,-1,0,1,0,-1,0,1,1,0,0,0,0,-1,-1,0,1).
MAPLE
M := Matrix(28, (i, j)-> if (i=j-1) or (j=1 and member(i, [2, 3, 11, 15, 19, 20, 28])) then 1 elif j=1 and member(i, [8, 9, 13, 17, 25, 26]) then -1 else 0 fi):
a:= n-> (M^(n))[1, 1]:
seq(a(n), n=0..50);
MATHEMATICA
CoefficientList[Series[1/Times@@(1-x^Prime[Range[5]]), {x, 0, 70}], x] (* or *) LinearRecurrence[{0, 1, 1, 0, 0, 0, 0, -1, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 1, 0, 0, 0, 0, -1, -1, 0, 1}, {1, 0, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 8, 10, 11, 13, 15, 17, 19, 22, 25, 28, 31, 35, 39, 43, 48}, 70] (* Harvey P. Dale, Jun 18 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Alois P. Heinz, Jul 25 2008
STATUS
approved