|
|
A307570
|
|
Expansion of Product_{j>=1} 1/(1 - x^j*Product_{k>=1} 1/(1 - x^k)^(k*j))^j.
|
|
1
|
|
|
1, 1, 4, 15, 58, 215, 789, 2850, 10219, 36330, 128383, 450997, 1576384, 5484086, 18997492, 65547958, 225329592, 771920515, 2635815051, 8972752531, 30456389557, 103095375148, 348071445217, 1172252449310, 3938655968745, 13203699803684, 44167916497886, 147442143911193, 491220771388477
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: g(x*g(x)), where g(x) = g.f. of A000219.
|
|
MATHEMATICA
|
nmax = 28; CoefficientList[Series[Product[1/(1 - x^j Product[1/(1 - x^k)^(k j), {k, 1, nmax}])^j, {j, 1, nmax}], {x, 0, nmax}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|