|
%I #26 Aug 15 2018 12:57:21
%S 1,0,0,0,2592899910,12756069900288,9529320689550144,
%T 2622941159057326080,378428749397345529225,34379738365334381035520,
%U 2195434131954412557737088,105922359559684281299632128,4060690624555940636889532470
%N Coefficients of the modular function j_3 = j^3 - 2232*j^2 + 1069956*j - 36866976.
%H Seiichi Manyama, <a href="/A288844/b288844.txt">Table of n, a(n) for n = -3..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) ~ 3^(1/4) * exp(4*Pi*sqrt(3*n)) / (sqrt(2)*n^(3/4)). - _Vaclav Kotesovec_, Jun 29 2017
%e G.f.: 1/q^3 + 2592899910*q + 12756069900288*q^2 + 9529320689550144*q^3 + 2622941159057326080*q^4 + ...
%t a[ n_] := With[{j = 1728 KleinInvariantJ[ Log[q]/(2 Pi I)]}, SeriesCoefficient[ Series[ j^3 - 2232 j^2 + 1069956 j - 36866976, {q, 0, n + 2}], {q, 0, n}]]; (* _Michael Somos_, Aug 15 2018 *)
%Y Cf. A014708 (j_1), A288843 (j_2), this sequence (j_3).
%Y Cf. A000521 (j), A028515 ((q*j)^2), A288846 ((q*j)^3).
%K nonn
%O -3,5
%A _Seiichi Manyama_, Jun 18 2017
|
