|
| |
|
|
A023006
|
|
Number of partitions of n into parts of 7 kinds.
|
|
2
| |
|
|
1, 7, 35, 140, 490, 1547, 4522, 12405, 32305, 80465, 192899, 447146, 1006145, 2204475, 4715510, 9869132, 20247710, 40786690, 80782800, 157510780, 302666903, 573720808, 1073720305, 1985506775, 3630307835, 6567206471, 11760658378, 20860415590, 36665885170, 63891010155, 110415782785, 189320804673, 322174588225
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| a(n) is Euler transform of A010727. [From Alois P. Heinz, Oct 17 2008]
|
|
|
LINKS
| Vincenzo Librandi, Table of n, a(n) for n = 0..200
Index entries for expansions of Product_{k >= 1} (1-x^k)^m
N. J. A. Sloane, Transforms [From Alois P. Heinz, Oct 17 2008]
|
|
|
FORMULA
| G.f.: Product_{m>=1} 1/(1-x^m)^7.
|
|
|
MAPLE
| with (numtheory): a:= proc(n) option remember; `if`(n=0, 1, add (add (d*7, d=divisors(j)) *a(n-j), j=1..n)/n) end: seq (a(n), n=0..40); [From Alois P. Heinz, Oct 17 2008]
|
|
|
PROG
| (PARI) Vec(1/eta('x+O('x^66))^7) /* Joerg Arndt, Jul 30 2011 */
|
|
|
CROSSREFS
| Cf. 7th column of A144064. [From Alois P. Heinz, Oct 17 2008]
Sequence in context: A001941 A160460 A160539 * A001875 A169794 A121163
Adjacent sequences: A023003 A023004 A023005 * A023007 A023008 A023009
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
