%I #28 May 23 2023 10:47:16
%S 1,1,-1,0,2,-2,-1,3,-2,0,3,-4,-1,5,-3,-1,6,-6,-2,7,-6,0,9,-8,-3,11,-9,
%T -2,13,-13,-3,17,-12,-3,19,-18,-5,22,-19,-3,27,-24,-7,33,-26,-5,36,
%U -34,-9,44,-35,-9,51,-45,-11,58,-49,-9,68,-59,-16,78,-65,-15,88,-79,-19,104,-84,-19,117,-102,-26,133,-112,-24,152,-131
%N Coefficients of the '6th-order' mock theta function gamma(q).
%D Srinivasa Ramanujan, The Lost Notebook and Other Unpublished Papers, Narosa Publishing House, New Delhi, 1988, p. 17
%H G. C. Greubel, <a href="/A053274/b053274.txt">Table of n, a(n) for n = 0..1000</a>
%H George E. Andrews and Dean Hickerson, <a href="https://doi.org/10.1016/0001-8708(91)90083-J">Ramanujan's "lost" notebook VII: The sixth order mock theta functions</a>, Advances in Mathematics, 89 (1991) 60-105.
%F G.f.: gamma(q) = Sum_{n >= 0} q^n^2/((1+q+q^2)(1+q^2+q^4)...(1+q^n+q^(2n))).
%F From _Seiichi Manyama_, May 23 2023: (Start)
%F a(n) = A328988(n) - A328989(n) for n > 0.
%F G.f.: 1 + (1/Product_{k>=1} (1-x^k)) * Sum_{k>=1} (-1)^(k-1) * x^(k*(3*k-1)/2) * (1+x^k) * (1-x^k)^2 / (1+x^k+x^(2*k)). (End)
%t Series[Sum[q^n^2/Product[1+q^k+q^(2k), {k, 1, n}], {n, 0, 10}], {q, 0, 100}]
%o (PARI) a(n) = polcoeff(sum(k=0, 50, q^(k^2)/prod(j=1, k, 1+q^j+q^(2*j)), q*O(q^n)), n);
%o for(n=0,50, print1(a(n), ", ")) \\ _G. C. Greubel_, May 18 2018
%o (PARI) my(N=80, x='x+O('x^N)); Vec(1+1/prod(k=1, N, 1-x^k)*sum(k=1, N, (-1)^(k-1)*x^(k*(3*k-1)/2)*(1+x^k)*(1-x^k)^2/(1+x^k+x^(2*k)))) \\ _Seiichi Manyama_, May 23 2023
%Y Other '6th-order' mock theta functions are at A053268, A053269, A053270, A053271, A053272, A053273.
%Y Cf. A328988, A328989.
%K sign,easy
%O 0,5
%A _Dean Hickerson_, Dec 19 1999
|