|
%I #7 Aug 21 2019 15:49:31
%S 1,1,3,6,17,28,66,116,248,441,867,1516,2894,5015,9138,15724,27954,
%T 47428,82421,138380,235910,392040,657590,1081225,1789550,2914500,
%U 4763562,7689071,12433581,19897139,31862226,50583981,80285138,126509709,199167763,311620226
%N Expansion of Product_{k>=1} (Product_{j=1..k} 1/(1 - x^(k*j))^(k*j)).
%H Vaclav Kotesovec, <a href="/A327068/b327068.txt">Table of n, a(n) for n = 0..10000</a>
%t nmax = 40; CoefficientList[Series[Product[Product[1/(1-x^(k*j))^(k*j), {j, 1, Min[k, nmax/k]}], {k, 1, nmax}], {x, 0, nmax}], x]
%Y Cf. A000294, A061256, A182269, A279216, A280540, A327065, A327066, A327067.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Aug 19 2019
|
