|
|
A023011
|
|
Number of partitions of n into parts of 13 kinds.
|
|
2
|
|
|
1, 13, 104, 637, 3276, 14820, 60697, 229372, 810654, 2706366, 8600501, 26173966, 76654656, 216903064, 594973106, 1586553501, 4122693185, 10461067253, 25967050382, 63154957281, 150708128116, 353304272945, 814564136529, 1848834255034, 4134822087942
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
with (numtheory): a:= proc(n) option remember; `if`(n=0, 1, add (add (d*13, d=divisors(j)) *a(n-j), j=1..n)/n) end: seq (a(n), n=0..40); # Alois P. Heinz, Oct 17 2008
|
|
MATHEMATICA
|
CoefficientList[Series[1/QPochhammer[x]^13, {x, 0, 30}], x] (* Indranil Ghosh, Mar 27 2017 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|