login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A289307 Coefficients in expansion of E_4^(1/4) in powers of q. 14

%I #57 Jun 22 2018 23:27:16

%S 1,60,-4860,660480,-105063420,18206269560,-3328461434880,

%T 631226199152640,-122944850563477500,24436796345920143420,

%U -4935178772322020730360,1009598430837232126725120,-208736157503462405753487360,43541664791244563211024015480

%N Coefficients in expansion of E_4^(1/4) in powers of q.

%H Seiichi Manyama, <a href="/A289307/b289307.txt">Table of n, a(n) for n = 0..424</a>

%H M. Kontsevich and D. Zagier, <a href="http://www.ihes.fr/~maxim/TEXTS/Periods.pdf">Periods</a>, Institut des Hautes Etudes Scientifiques 2001 IHES/M/01/22. Published in B. Engquist and W. Schmid, editors, Mathematics Unlimited - 2001 and Beyond, 2 vols., Springer-Verlag, 2001, pp. 771-808, section 2.3. Example 3.

%H R. S. Maier, <a href="http://arxiv.org/abs/0807.1081">Nonlinear differential equations satisfied by certain classical modular forms</a>, arXiv:0807.1081 [math.NT], 2008-2010, p. 34 equation (7.29a).

%F G.f.: Product_{n>=1} (1-q^n)^(A110163(n)/4).

%F G.f.: 2F1(1/12, 5/12; 1; 1728/j) where j is the elliptic modular invariant (A000521). - _Seiichi Manyama_, Jul 06 2017 [See also the Kontsevich and Zagier link, where t = 1728/j = 1 - Sum_{k>=0} A289210(k)*q^k, with q = q(z) = exp(2*Pi*I*z), Im(z) > 0. - _Wolfdieter Lang_, May 27 2018]

%F a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(5/4), where c = sqrt(3) * Gamma(1/3)^(9/2) * Gamma(1/4) / (16 * 2^(3/4) * Pi^4) = 0.201967785736579402060958871696381229013432952780653381728912717635... - _Vaclav Kotesovec_, Jul 07 2017, updated Mar 04 2018

%e From _Seiichi Manyama_, Jul 07 2017: (Start)

%e 2F1(1/12, 5/12; 1; 1728/j)

%e = 1 + (1*5)/(1*1) * 12/j + (1*5*13*17)/(1*1*2*2) * (12/j)^2 + (1*5*13*17*25*29)/(1*1*2*2*3*3) * (12/j)^3 + ...

%e = 1 + 60/j + 39780/j^2 + 38454000/j^3 + ...

%e = 1 + 60*q - 44640*q^2 + 21399120*q^3 - ...

%e + 39780*q^2 - 59192640*q^3 + ...

%e + 38454000*q^3 - ...

%e + ...

%e = 1 + 60*q - 4860*q^2 + 660480*q^3 - ... (End)

%t a[ n_] := SeriesCoefficient[ ComposeSeries[ Series[ Hypergeometric2F1[ 1/12, 5/12, 1, q], {q, 0, n}], q^2 / Series[q^2 KleinInvariantJ[ Log[q]/(2 Pi I)], {q, 0, n}]], {q, 0, n}]; (* _Michael Somos_, Jun 21 2018 *)

%Y E_4^(k/8): A108091 (k=1), this sequence (k=2), A289308 (k=3), A289292 (k=4), A289309 (k=5), A289318 (k=6), A289319 (k=7).

%Y Cf. A000521 (j), A004009 (E_4), A066395 (1/j), A092870, A110163, A289210.

%K sign

%O 0,2

%A _Seiichi Manyama_, Jul 02 2017

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)