login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
Number of compositions of n into parts 3, 4, 5, 6 and 7 - David Neil McGrath, Aug 17 2014
LINKS
Vladimir Kruchinin and V. D. Kruchinin, Composita and their properties, arXiv:1103.2582 [math.CO], 2011-2013.
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 */
(PARI) Vec(1/(1-x^3-x^4-x^5-x^6-x^7)+O(x^99)) \\ Charles R Greathouse IV, Sep 26 2012
(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
Sequence in context: A046937 A247309 A069831 * A129577 A320784 A107854
KEYWORD
nonn,easy
AUTHOR
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)