|
%I #4 Apr 19 2018 15:12:51
%S 1,1,1,1,1,1,1,1,3,3,3,3,3,3,3,3,6,6,6,6,6,6,6,6,10,10,10,13,13,13,13,
%T 13,18,18,18,24,24,24,24,24,30,30,30,39,39,39,39,39,46,46,46,58,58,58,
%U 64,64,72,72,72,87,87,87,99,99,112,112,112,130,130,130,148,148,166,166,166,187
%N Expansion of Product_{k>=1} 1/(1 - x^(k^3))^k.
%C Number of partitions of n into 1 kind of part 1, 2 kinds of part 8, 3 kinds of part 27, ..., k kinds of part k^3.
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of cubes</a>
%F G.f.: Product_{k>=1} 1/(1 - x^A000578(k))^k.
%t nmax = 75; CoefficientList[Series[Product[1/(1 - x^k^3)^k, {k, 1, nmax}], {x, 0, nmax}], x]
%Y Cf. A000219, A000578, A003108, A023872, A285047, A291720, A298434, A300975.
%K nonn
%O 0,9
%A _Ilya Gutkovskiy_, Apr 19 2018
|
