login
A298434
Expansion of Product_{k>=1} 1/(1 - x^(k^3))^2.
4
1, 2, 3, 4, 5, 6, 7, 8, 11, 14, 17, 20, 23, 26, 29, 32, 38, 44, 50, 56, 62, 68, 74, 80, 90, 100, 110, 122, 134, 146, 158, 170, 187, 204, 221, 242, 263, 284, 305, 326, 353, 380, 407, 440, 473, 506, 539, 572, 612, 652, 692, 740, 788, 836, 887, 938, 997, 1056, 1115, 1184, 1253
OFFSET
0,2
COMMENTS
Number of partitions of n into cubes of 2 kinds.
Self-convolution of A003108.
FORMULA
G.f.: Product_{k>=1} 1/(1 - x^(k^3))^2.
a(n) ~ exp(2^(11/4) * (Gamma(1/3) * Zeta(4/3))^(3/4) * n^(1/4) / 3^(3/2)) * (Gamma(1/3) * Zeta(4/3))^(9/8) / (2^(27/8) * 3^(7/4) * Pi^(7/2) * n^(13/8)). - Vaclav Kotesovec, Apr 08 2018
EXAMPLE
a(8) = 11 because we have [8a], [8b], [1a, 1a, 1a, 1a, 1a, 1a, 1a, 1a], [1a, 1a, 1a, 1a, 1a, 1a, 1a, 1b], [1a, 1a, 1a, 1a, 1a, 1a, 1b, 1b], [1a, 1a, 1a, 1a, 1a, 1b, 1b, 1b], [1a, 1a, 1a, 1a, 1b, 1b, 1b, 1b], [1a, 1a, 1a, 1b, 1b, 1b, 1b, 1b], [1a, 1a, 1b, 1b, 1b, 1b, 1b, 1b], [1a, 1b, 1b, 1b, 1b, 1b, 1b, 1b] and [1b, 1b, 1b, 1b, 1b, 1b, 1b, 1b].
MATHEMATICA
nmax = 60; CoefficientList[Series[Product[1/(1 - x^(k^3))^2, {k, 1, Floor[nmax^(1/3) + 1]}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Apr 08 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 19 2018
STATUS
approved