OFFSET
0,3
COMMENTS
Convolution inverse of the 3rd order mock theta function f(q) (A000025).
LINKS
Robert Israel, Table of n, a(n) for n = 0..2441
Eric Weisstein's World of Mathematics, Mock Theta Function
FORMULA
G.f.: 1/(1 + Sum_{i>=1} q^(i^2)/Product_{j=1..i} (1 + q^j)^2).
MAPLE
N:= 50: # to get a(0)..a(N)
g:= 1/(1+add(q^(i^2)/mul(1+q^j, j=1..i)^2, i=1..floor(sqrt(N)))):
S:= series(g, q, N+1):
seq(coeff(S, q, n), n=0..N); # Robert Israel, Nov 06 2017
MATHEMATICA
nmax = 31; CoefficientList[Series[1/(1 + Sum[q^(i^2)/Product[(1 + q^j)^2, {j, 1, i}], {i, 1, nmax}]), {q, 0, nmax}], q]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Oct 30 2017
STATUS
approved