A294598 Expansion of 1/(Sum_{i>=0} q^(i^2)/Product_{j=1..i} (1 - q^j + q^(2*j))).

1, -1, 0, 1, -1, 0, 0, 0, 1, -2, 2, 0, -3, 4, -3, 1, 1, -4, 9, -10, 2, 11, -19, 16, -7, -5, 22, -40, 43, -13, -42, 86, -87, 44, 24, -106, 183, -195, 74, 163, -382, 430, -256, -86, 504, -859, 907, -395, -639, 1697, -2084, 1399, 236, -2313, 4037, -4301, 2080, 2529, -7561, 9923, -7327

Offset

0,10

Comments

Convolution inverse of the 3rd order mock theta function chi(q) (A053252).

Links

Table of n, a(n) for n=0..60.

Eric Weisstein's World of Mathematics, Mock Theta Function

Formula

G.f.: 1/(Sum_{i>=0} q^(i^2)/Product_{j=1..i} (1 - q^j + q^(2*j))).

Mathematica

nmax = 60; CoefficientList[Series[1/Sum[q^(i^2)/Product[1 - q^j + q^(2 j), {j, 1, i}], {i, 0, nmax}], {q, 0, nmax}], q]

Crossrefs

Cf. A053252, A294407, A294408, A294599, A294600.

Sequence in context: A339422 A367746 A094053 * A077264 A349344 A188333

Adjacent sequences: A294595 A294596 A294597 * A294599 A294600 A294601

Keyword

sign

Author

Ilya Gutkovskiy, Nov 03 2017

Status

approved