|
|
A335604
|
|
Number of 9-regular cubic partitions of n.
|
|
1
|
|
|
1, 1, 3, 4, 9, 12, 23, 31, 54, 72, 117, 156, 242, 320, 477, 628, 909, 1188, 1676, 2178, 3012, 3888, 5283, 6780, 9079, 11582, 15309, 19424, 25389, 32040, 41462, 52063, 66780, 83448, 106182, 132084, 166862, 206660, 259359, 319896, 399069, 490272, 608234, 744444, 918864
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (f_9(x)*f_18(x)) / (f_1(x)*f_2(x)) where f_k(x) = Product_{m>=1} (1 - x^(m*k)).
a(n) ~ exp(2*sqrt(2*n)*Pi/3) / (2^(3/4) * 3^(5/2) * n^(3/4)). - Vaclav Kotesovec, Jun 23 2020
|
|
MATHEMATICA
|
nmax = 50; CoefficientList[Series[Product[(1 - x^(9*k)) * (1 - x^(18*k)) / ((1 - x^k) * (1 - x^(2*k))), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jun 23 2020 *)
|
|
PROG
|
(PARI) seq(n)={my(A=O(x*x^n)); Vec(eta(x^9 + A)*eta(x^18 + A)/(eta(x + A)*eta(x^2 + A)))} \\ Andrew Howroyd, Jul 29 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|