login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Coefficients of the eighth-order mock theta function U_1(q).
8

%I #12 Jan 31 2021 20:40:08

%S 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,

%T -20,9,24,-11,-28,12,33,-15,-39,18,46,-20,-53,24,62,-28,-72,32,83,-37,

%U -96,43,110,-48,-126,56,145,-65,-165,72,188,-83,-214,95,243

%N Coefficients of the eighth-order mock theta function U_1(q).

%H B. Gordon and R. J. McIntosh, <a href="http://dx.doi.org/10.1112/S0024610700008735">Some eighth order mock theta functions</a>, J. London Math. Soc. 62 (2000), 321-335.

%F 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))).

%o (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

%Y Other '8th-order' mock theta functions are at A153148, A153149, A153155, A153156, A153172, A153176, A153178.

%K sign

%O 0,6

%A _Jeremy Lovejoy_, Dec 20 2008

%E More terms from _Michel Marcus_, Feb 23 2015