login
A109471
Cumulative sum of absolute values of coefficients of q^(2n) in the series expansion of Ramanujan's mock theta function f(q).
1
1, 3, 6, 11, 17, 27, 38, 55, 76, 103, 136, 182, 235, 303, 385, 489, 612, 766, 945, 1166, 1428, 1742, 2111, 2557, 3072, 3686, 4401, 5246, 6223, 7371, 8692, 10236, 12014, 14074, 16435, 19171, 22292, 25884, 29981, 34677, 40017, 46122, 53038, 60920
OFFSET
0,2
LINKS
FORMULA
a(n) = Sum_{k=0..n} abs(A000039(k)). [corrected by Joerg Arndt, Feb 25 2018]
a(n) ~ sqrt(3/2) * exp(sqrt(n/3)*Pi) / Pi. - Vaclav Kotesovec, Jun 12 2019
MATHEMATICA
nmax = 200; f[q_, s_] := Sum[q^(n^2)/Product[1 + q^k, {k, n}]^2, {n, 0, s}]; A000039:= CoefficientList[Series[f[q, nmax], {q, 0, nmax}], q][[1 ;; -1 ;; 2]]; Table[Sum[Abs[A000039[[k]]], {k, 1, n}], {n, 1, 51}] (* G. C. Greubel, Feb 18 2018 *)
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Aug 28 2005
STATUS
approved