|
|
A305443
|
|
Expansion of q * f(-q^1, -q^6)^3 / f(-q^2, -q^5)^2 * f(-q^3, -q^4) in powers of q where f() is Ramanujan's two-variable theta function.
|
|
3
|
|
|
1, -3, 5, -6, 7, -7, 3, 4, -12, 22, -32, 35, -28, 13, 14, -53, 90, -116, 126, -105, 42, 53, -164, 280, -366, 378, -301, 128, 142, -469, 773, -978, 1015, -805, 322, 374, -1179, 1942, -2450, 2492, -1946, 791, 884, -2809, 4558, -5678, 5754, -4473, 1781, 2004, -6251, 10104
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
nmax = 50; CoefficientList[Series[Product[((1 - x^(7*k - 1)) * (1 - x^(7*k - 6)))^3 / ((1 - x^(7*k - 2))^2 * (1 - x^(7*k - 5))^2 * (1 - x^(7*k - 3)) * (1 - x^(7*k - 4))), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 11 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|