|
|
A017820
|
|
Expansion of 1/(1-x^3-x^4-x^5-x^6-x^7).
|
|
1
|
|
|
1, 0, 0, 1, 1, 1, 2, 3, 3, 5, 8, 10, 14, 21, 29, 40, 58, 82, 114, 162, 230, 323, 456, 646, 911, 1285, 1817, 2566, 3621, 5115, 7225, 10200, 14404, 20344, 28727, 40565, 57288, 80900, 114240, 161328, 227824, 321720, 454321, 641580, 906012, 1279433, 1806773, 2551457, 3603066, 5088119, 7185255, 10146741, 14328848
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,7
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = sum(sum(C(k,r)*sum(C(r,m)*sum(C(m,j)*C(j,n-m-3*k-j-r), j=0..m), m=0..r), r=0..k), k=1..n), n>0. - Vladimir Kruchinin, Aug 30 2010
a(0)=1, a(1)=0, a(2)=0, a(3)=1, a(4)=1, a(5)=1, a(6)=2; for n>6, a(n) = a(n-3)+a(n-4)+ a(n-5)+a(n-6)+a(n-7). - Harvey P. Dale, May 11 2012
|
|
MATHEMATICA
|
CoefficientList[Series[1/(1 - x^3 - x^4 - x^5 - x^6 - x^7), {x, 0, 50}], x] (* or *) LinearRecurrence[{0, 0, 1, 1 , 1, 1, 1}, {1, 0, 0, 1, 1, 1, 2}, 50] (* Harvey P. Dale, May 11 2012 *)
CoefficientList[Series[1 / (1 - Total[x^Range[3, 7]]), {x, 0, 50}], x] (* Vincenzo Librandi, Jun 27 2013 *)
|
|
PROG
|
(Maxima) a(n):=sum(sum(binomial(k, r) *sum(binomial(r, m)*sum(binomial(m, j) *binomial(j, n-m-3*k-j-r), j, 0, m), m, 0, r), r, 0, k), k, 1, n); /* Vladimir Kruchinin, Aug 30 2010 */
(Magma) I:=[1, 0, 0, 1, 1, 1, 2]; [n le 7 select I[n] else Self(n-3)+Self(n-4) +Self(n-5)+Self(n-6)+Self(n-7): n in [1..50]]; /* or */ m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1-x^3-x^4-x^5-x^6-x^7))); // Vincenzo Librandi, Jun 27 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|