%I #19 Aug 15 2018 08:57:11
%S 1,0,0,42987520,40491909396,8504046600192,802981794805760,
%T 45134786619187200,1748627440235850690,50995654778821050368,
%U 1186243544863135973376,22919825576889573027840,378899952498119982698200,5481261425027249309859840
%N Coefficients of the modular function j_2 = j^2 - 1488*j + 159768.
%H Seiichi Manyama, <a href="/A288843/b288843.txt">Table of n, a(n) for n = -2..1000</a>
%H K. Ono, <a href="https://doi.org/10.1515/9783110208504.141">A mock theta function for the Delta-function</a>, Proceedings of the 2007 Integers Conference, Carrollton, Georgia, October 24—27, 2007.
%F a(n) ~ exp(4*Pi*sqrt(2*n)) / (2^(1/4)*n^(3/4)). - _Vaclav Kotesovec_, Jun 29 2017
%e G.f. = q^-2 + 42987520*q + 40491909396*q^2 + 8504046600192*q^3 + ... - _Michael Somos_, Aug 15 2018
%t a[ n_] := With[{j = 1728 KleinInvariantJ[ Log[q]/(2 Pi I)]}, SeriesCoefficient[ Series[j^2 - 1488 j + 159768, {q, 0, n + 1}], {q, 0, n}]]; (* _Michael Somos_, Aug 15 2018 *)
%Y Cf. A014708 (j_1), this sequence (j_2), A288844 (j_3).
%Y Cf. A000521 (j), A028520.
%K nonn
%O -2,4
%A _Seiichi Manyama_, Jun 17 2017
|