A299830 -id:A299830 - cp's OEIS frontend

A299861 Coefficients in expansion of (E_6^2/E_4^3)^(1/4).

1, -432, 41472, -19704384, 593104896, -1488746462112, -215673487239168, -180545262418802304, -58940991594820435968, -31030127172303490499184, -13143520096697989968012288, -6336110261914309914844683456

Offset: 0

Seiichi Manyama, Feb 21 2018

sign

Seiichi Manyama, Table of n, a(n) for n = 0..367

(E_6^2/E_4^3)^(k/288): A289366 (k=1), A296609 (k=2), A296614 (k=3), A296652 (k=4), A297021 (k=6), A299422 (k=8), A299862 (k=9), A289368 (k=12), A299856 (k=16), A299857 (k=18), A299858 (k=24), A299863 (k=32), A299859 (k=36), A299860 (k=48), this sequence (k=72), A299414 (k=96), A299413 (k=144), A289210 (k=288).

Cf. A000521 (j), A289334, A299830.

terms = 12;
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, terms}];
(E6[x]^2/E4[x]^3)^(1/4) + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 28 2018 *)

G.f.: (1 - 1728/j)^(1/4), where j is the j-function.
a(n) ~ -3^(1/4) * Gamma(1/4)^2 * exp(2*Pi*n) / (8 * Pi^2 * n^(3/2)). - Vaclav Kotesovec, Mar 04 2018
a(n) * A300053(n) ~ -exp(4*Pi*n) / (2*Pi*n^2). - Vaclav Kotesovec, Mar 04 2018

A289301 Expansion of (q*j(q))^(1/4) where j(q) is the elliptic modular invariant (A000521).

Original entry on oeis.org

1, 186, -2673, 430118, -56443725, 8578591578, -1411853283028, 245405765574252, -44373155962556475, 8266332741845429800, -1576306833508315403544, 306275559567641721838494, -60432437032381794135586069

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..425

(q*j(q))^(k/24): A106205 (k=1), A289297 (k=2), A289298 (k=3), A289299 (k=4), A289300 (k=5), this sequence (k=6), A289302 (k=7), A007245 (k=8), A289303 (k=9), A289304 (k=10), A289305 (k=11), A161361 (k=12).

Cf. A000521, A192731.

CoefficientList[Series[(65536 + x*QPochhammer[-1, x]^24)^(3/4) / (64 * QPochhammer[-1, x]^6), {x, 0, 20}], x] (* Vaclav Kotesovec, Sep 23 2017 *)
(q*1728*KleinInvariantJ[-Log[q]*I/(2*Pi)])^(1/4) + O[q]^13 // CoefficientList[#, q]& (* Jean-François Alcover, Nov 02 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(A192731(n)/4).
a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(7/4), where c = 0.1955865990744763088634116856422381013939034554805874572099292810179... = 3^(7/4) * Gamma(1/3)^(9/2) / (2^(11/4) * exp(sqrt(3) * Pi/4) * Pi^3 * Gamma(1/4)). - Vaclav Kotesovec, Jul 03 2017, updated Mar 06 2018
a(n) * A299830(n) ~ -3*exp(2*sqrt(3)*Pi*n) / (2^(5/2)*Pi*n^2). - Vaclav Kotesovec, Feb 20 2018

A299826 Coefficients in expansion of (q*j(q))^(-1/12) where j(q) is the elliptic modular invariant (A000521).

Original entry on oeis.org

1, -62, 8579, -1476538, 276299401, -54140398258, 10925052030358, -2250028212438240, 470403050272649518, -99482921702360817662, 21231436164082720565341, -4564732260005808181200000, 987422026920066412423809840

Offset: 0

Seiichi Manyama, Feb 20 2018

sign

(q*j(q))^(k/24): A289397 (k=-1), this sequence (k=-2), A299827 (k=-3), A299828 (k=-4), A299829 (k=-5), A299830 (k=-6), A299831 (k=-8), A299832 (k=-12).

Cf. A000521, A289297.

CoefficientList[Series[(2 * QPochhammer[-1, x])^2 / (65536 + x*QPochhammer[-1, x]^24)^(1/4), {x, 0, 20}], x] (* Vaclav Kotesovec, Feb 20 2018 *)

Convolution inverse of A289297.
a(n) ~ (-1)^n * c * exp(Pi*sqrt(3)*n) / n^(3/4), where c = 0.28101701912289268934379724324854717406285519051128823261445... = 2^(1/4) * exp(Pi/(4 * sqrt(3))) * Pi / (3^(1/4) * Gamma(1/4) * Gamma(1/3)^(3/2)). - Vaclav Kotesovec, Feb 20 2018, updated Mar 06 2018
a(n) * A289297(n) ~ -exp(2*sqrt(3)*n*Pi) / (2^(5/2)*Pi*n^2). - Vaclav Kotesovec, Feb 20 2018

cp's OEIS Frontend

A299861 Coefficients in expansion of (E_6^2/E_4^3)^(1/4).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A289301 Expansion of (q*j(q))^(1/4) where j(q) is the elliptic modular invariant (A000521).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A299826 Coefficients in expansion of (q*j(q))^(-1/12) where j(q) is the elliptic modular invariant (A000521).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula