

A153140


Coefficients of the second order mock theta function B(q).


0



1, 2, 4, 6, 9, 14, 20, 28, 40, 54, 72, 98, 129, 168, 220, 282, 360, 460, 580, 728, 912, 1134, 1404, 1734, 2129, 2604, 3180, 3864, 4680, 5658, 6812, 8182, 9808, 11718, 13968, 16618, 19720, 23350, 27600, 32550, 38313
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

Table of n, a(n) for n=0..40.
R. J. McIntosh, Second order mock theta functions, Canad. Math. Bull. 50 (2007), 284290.


FORMULA

G.f.: Sum_{n >= 0} q^(n^2+n)(1+q^2)(1+q^4)...(1+q^(2n))/(1q)^2(1q^3)^2...(1q^(2n+1))^2.
G.f.: Sum_{n >= 0} q^n(1+q)(1+q^3)...(1+q^(2n1))/(1q)(1q^3)...(1q^(2n+1)).


PROG

(PARI) lista(nn) = my(q = qq + O(qq^nn)); gf = sum(n = 0, nn, q^n * prod(k = 1, n, 1 + q^(2*k1)) / prod(k = 0, n, 1  q^(2*k+1))); Vec(gf) \\ Michel Marcus, Jun 18 2013


CROSSREFS

Other '2nd order' mock theta functions are at A006304, A006306.
Sequence in context: A218004 A034748 A069916 * A139135 A097197 A119737
Adjacent sequences: A153137 A153138 A153139 * A153141 A153142 A153143


KEYWORD

nonn


AUTHOR

Jeremy Lovejoy, Dec 19 2008


EXTENSIONS

More terms from Michel Marcus, Jun 18 2013


STATUS

approved



