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.

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

Offset

1,2

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

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

Convolution inverse of A108481.

Cf. A262933.

Sequence in context: A082218 A111612 A317920 * A362074 A122818 A070083

Adjacent sequences: A305440 A305441 A305442 * A305444 A305445 A305446

Keyword

sign

Author

Seiichi Manyama, Oct 10 2018

Status

approved