Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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