|
|
A153174
|
|
Coefficients of the eighth-order mock theta function U_1(q).
|
|
8
|
|
|
0, 1, 0, -1, 1, 2, -1, -2, 1, 3, -1, -4, 2, 5, -2, -6, 3, 8, -4, -9, 4, 11, -5, -14, 7, 17, -7, -20, 9, 24, -11, -28, 12, 33, -15, -39, 18, 46, -20, -53, 24, 62, -28, -72, 32, 83, -37, -96, 43, 110, -48, -126, 56, 145, -65, -165, 72, 188, -83, -214, 95, 243
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,6
|
|
LINKS
|
|
|
FORMULA
|
G.f: Sum_{n >= 0} q^((n+1)^2)(1+q)(1+q^3)...(1+q^(2n-1))/((1+q^2)(1+q^6)...(1+q^(4n+2))).
|
|
PROG
|
(PARI) lista(nn) = {my(q = qq + O(qq^nn)); gf = sum(n = 0, nn, q^((n+1)^2) * prod(k = 1, n, 1 + q^(2*k-1)) / prod(k = 0, n, 1 + q^(4*k+2))); for (i=0, nn-1, print1(polcoeff(gf, i), ", "); ); } \\ Michel Marcus, Jun 18 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|