A289307 -id:A289307 - cp's OEIS frontend

A108091 Coefficients of series whose 8th power is the theta series of E_8 (see A004009).

1, 30, -2880, 416640, -69178110, 12378401280, -2321610157440, 449733567736320, -89200812128140800, 18013245273252679710, -3689479088922151082880, 764375901202388789804160, -159862757100127037505991680, 33699694000689939789618455040, -7152050326608893289997995966720, 1526705794390267864554876727856640

Offset: 0

N. J. A. Sloane and Michael Somos, Jun 06 2005

sign

			More precisely, the theta series of E_8 begins 1 + 240*q^2 + 2160*q^4 + 6720*q^6 + 17520*q^8 + ... and the 8th root of this is 1 + 30*q^2 - 2880*q^4 + 416640*q^6 - 69178110*q^8 + ...

N. J. A. Sloane, Seven Staggering Sequences, in Homage to a Pied Puzzler, E. Pegg Jr., A. H. Schoen and T. Rodgers (editors), A. K. Peters, Wellesley, MA, 2009, pp. 93-110.

Seiichi Manyama, Table of n, a(n) for n = 0..424
N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, arXiv:math/0509316 [math.NT], 2005-2006.
N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.
N. J. A. Sloane, Seven Staggering Sequences.

E_4^(k/8): this sequence (k=1), A289307 (k=2), A289308 (k=3), A289292 (k=4), A289309 (k=5).

Cf. A001158, A004009 (E_4), A106205, A110163, A300147, A303007.

nmax = 20; s = 8; CoefficientList[Series[(1 - 2*s/BernoulliB[s] * Sum[DivisorSigma[s - 1, k]*x^k, {k, 1, nmax}])^(1/16), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 02 2017 *)

R. = PowerSeriesRing(ZZ,20)
a = R(eisenstein_series_qexp(4,20, normalization='integral'))
list(a.sqrt().sqrt().sqrt()) # Andy Huchala, Jul 10 2021

G.f.: Product_{n>=1} (1-q^n)^(A110163(n)/8). - Seiichi Manyama, Jul 02 2017
a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(9/8), where c = 3^(1/4) * Gamma(1/3)^(9/4) / (2^(33/8) * Pi^(3/2) * Gamma(7/8)) = 0.1141392450598624077174159151600898926678394937157356242319309115... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018
a(0) = 1, a(n) = -(1/n)*Sum_{k=1..n} A300147(k)*a(n-k) for n > 0. - Seiichi Manyama, Feb 27 2018
G.f.: Sum_{k>=0} A303007(k) * (-f(q))^k where f(q) is Sum_{k>=1} sigma_3(k)*q^k. - Seiichi Manyama, Jun 15 2018

A289292 Coefficients in expansion of E_4^(1/2).

Original entry on oeis.org

1, 120, -6120, 737760, -107249640, 17385063120, -3014720249760, 547287510713280, -102701836021530600, 19762301660609250840, -3878226140959368843120, 773209219953012480001440, -156173318001506652330786720, 31888935085481430265623676560

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

Seiichi Manyama, Table of n, a(n) for n = 0..425
R. S. Maier, Nonlinear differential equations satisfied by certain classical modular forms, arXiv:0807.1081 [math.NT], 2008-2010, p. 34 equation (7.29b).

E_k^(1/2): A289291 (k=2), this sequence (k=4), A289293 (k=6), A004009 (k=8), A289294 (k=10), A289295 (k=14).
E_4^(k/8): A108091 (k=1), A289307 (k=2), A289308 (k=3), this sequence (k=4), A289309 (k=5), A289318 (k=6), A289319 (k=7).
Cf. A001421, A004009 (E_4), A110163.

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

G.f.: Product_{n>=1} (1-q^n)^(A110163(n)/2).
a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(3/2), where c = 3*Gamma(1/3)^9 / (32*sqrt(2)*Pi^(13/2)) = 0.27646925986847687648926173728588572192308632719... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018
G.f.: 3F2(1/6, 1/2, 5/6; 1, 1; 1728/j) where j is the elliptic modular invariant (A000521). - Seiichi Manyama, Jul 07 2017

A289392 Coefficients in expansion of E_2^(1/4).

Original entry on oeis.org

1, -6, -72, -1104, -20238, -405792, -8601840, -189317568, -4281478272, -98841343686, -2318973049008, -55118876238000, -1324194430710912, -32099173821105312, -784045854628721568, -19276683937074656064, -476644852188898489662

Offset: 0

Seiichi Manyama, Jul 05 2017

sign

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

E_2^(k/4): this sequence (k=1), A289291 (k=2), A289393 (k=3).
E_k^(1/4): this sequence (k=2), A289307 (k=4), A289326 (k=6), A289292 (k=8), A110150 (k=10), A289391 (k=14).
Cf. A004984, A006352 (E_2), A108091, A109817, A289394.

nmax = 20; CoefficientList[Series[(1 - 24*Sum[DivisorSigma[1, k]*x^k, {k, 1, nmax}])^(1/4), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 08 2017 *)

G.f.: Product_{n>=1} (1-q^n)^A289394(n).
a(n) ~ c / (n^(5/4) * r^n), where r = A211342 = 0.03727681029645165815098078565... is the root of the equation Sum_{k>=1} A000203(k) * r^k = 1/24 and c = -0.209452682241344640265132676904094736935029272937832600102950644347... - Vaclav Kotesovec, Jul 08 2017
G.f.: Sum_{k>=0} A004984(k) * (3*f(q))^k where f(q) is Sum_{k>=1} sigma_1(k)*q^k. - Seiichi Manyama, Jun 16 2018

A092870 Expansion of Hypergeometric function F(1/12, 5/12; 1; 1728*x) in powers of x.

Original entry on oeis.org

1, 60, 39780, 38454000, 43751038500, 54538294552560, 72081445966966800, 99225259048241726400, 140744828381240373790500, 204278086466816584003782000, 301931182921413583820949947280

Offset: 0

Michael Somos, Mar 08 2004

nonn

Self-convolution yields Sum_{k=0..n} a(n-k)*a(k) = A001421(n). - Paul D. Hanna, Jan 25 2011

Seiichi Manyama, Table of n, a(n) for n = 0..310 (terms 0..100 from Vincenzo Librandi)
R. S. Maier, Nonlinear differential equations satisfied by certain classical modular forms, arXiv:0807.1081 [math.NT], 2008-2010, p. 34 equation (7.29a).

Cf. A001421; variants: A184424, A178529, A184891, A184895, A184897. - Paul D. Hanna, Jan 25 2011

Cf. A289307.

CoefficientList[ Series[ Hypergeometric2F1[ 1/12, 5/12, 1, 1728 x], {x, 0, 10}], x]

{a(n) = local(an); if( n<1, n==0, an = vector(n+1); an[1] = 1; for(k=1, n, an[k+1] = an[k] * 12 * (12*k - 7) * (12*k - 11) / k^2); an[n+1])}

{a(n)=(12^n/n!^2)*prod(k=0, n-1, (12*k+1)*(12*k+5))} \\ Paul D. Hanna, Jan 25 2011

G.f.: F(1/12, 5/12; 1; 1728*x). a(n) * n^2 = a(n-1) * 12 * (12*n - 7) * (12*n - 11).
G.f. A(x) = y satisfies 0 = (1728*x^2 - x) * y" + (2592*x - 1) * y' + 60 * y.
a(n) = (12^n/n!^2) * Product_{k=0..n-1} (12k+1)*(12k+5). - Paul D. Hanna, Jan 25 2011
G.f.: A(x) = 1 + 60*x + 39780*x^2 + 38454000*x^3 +... with  A(x)^2 = 1 + 120*x + 83160*x^2 + 81681600*x^3 +...+ A184894(n)*x^n +... - Paul D. Hanna, Jan 25 2011
a(n) ~ 1728^n * GAMMA(11/12) * GAMMA(7/12) / (4*Pi^2*n^(3/2)). - Vaclav Kotesovec, Apr 20 2014

A289308 Coefficients in expansion of E_4^(3/8).

Original entry on oeis.org

1, 90, -5940, 758520, -115431930, 19355028840, -3447208777320, 639751846440960, -122326632902618100, 23925871041887048130, -4763590542726586318440, 962102309316632909723880, -196619722885250960565506040, 40580696990507644723354537320

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

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

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

Cf. A004009 (E_4), A110163.

nmax = 20; CoefficientList[Series[(1 + 240*Sum[DivisorSigma[3,k]*x^k, {k, 1, nmax}])^(3/8), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 09 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(3*A110163(n)/8).

a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(11/8), where c = 3^(7/4) * Gamma(1/3)^(27/4) / (64 * 2^(3/8) * Pi^(9/2) * Gamma(5/8)) = 0.2574920621515873836544977885672468081360882154861344422709504189964... - Vaclav Kotesovec, Jul 09 2017, updated Mar 05 2018

A289309 Coefficients in expansion of E_4^(5/8).

Original entry on oeis.org

1, 150, -5400, 625200, -86672550, 13570016400, -2289741037200, 406440122001600, -74830416797043000, 14162747887897808550, -2738995393669565720400, 538973037306449327998800, -107578899914865970323788400, 21729813219122500082762389200

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

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

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

Cf. A004009 (E_4), A110163.

nmax = 20; CoefficientList[Series[(1 + 240*Sum[DivisorSigma[3,k]*x^k, {k, 1, nmax}])^(5/8), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 08 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(5*A110163(n)/8).

a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(13/8), where c = 5 * 3^(5/4) * Gamma(1/3)^(45/4) / (256 * 2^(5/8) * Pi^(15/2) * Gamma(3/8)) = 0.2571085249207580781634342667473393997795373224370302803101380883544... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A289319 Coefficients in expansion of E_4^(7/8).

Original entry on oeis.org

1, 210, -1260, 232680, -28907970, 4211355960, -671557897080, 113817372354240, -20151698294479500, 3687092782592216970, -692109989731133096760, 132609267059636375116920, -25838624519733523814390760, 5105657091664960508653858680

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

In general, for 0 < m < 1, the expansion of (E_4)^m is asymptotic to (-1)^(n+1) * m * 3^(2*m) * Gamma(1/3)^(18*m) * exp(Pi*sqrt(3)*n) / (2^(9*m) * Pi^(12*m) * Gamma(1-m) * n^(1+m)). - Vaclav Kotesovec, Mar 05 2018

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

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

Cf. A004009 (E_4), A110163.

nmax = 20; CoefficientList[Series[(1 + 240*Sum[DivisorSigma[3,k]*x^k, {k, 1, nmax}])^(7/8), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 08 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(7*A110163(n)/8).

a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(15/8), where c = 7 * 3^(7/4) * Gamma(1/3)^(63/4) / (1024 * 2^(7/8) * Pi^(21/2) * Gamma(1/8)) = 0.1121182787986009012644546699220584282491804117887058146553161217384... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A289318 Coefficients in expansion of E_4^(3/4).

Original entry on oeis.org

1, 180, -3780, 447840, -59046660, 8921092680, -1463828444640, 253953515257920, -45858209756343300, 8534765953624978260, -1626301691950399586280, 315807346469727624396960, -62284193156782292089690080, 12443904711281870749228431240

Offset: 0

Seiichi Manyama, Jul 02 2017

sign

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

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

Cf. A004009 (E_4), A110163.

nmax = 20; CoefficientList[Series[(1 + 240*Sum[DivisorSigma[3,k]*x^k, {k, 1, nmax}])^(3/4), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 08 2017 *)

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

a(n) ~ (-1)^(n+1) * c * exp(Pi*sqrt(3)*n) / n^(7/4), where c = 3^(5/2) * Gamma(1/3)^(27/2) / (256 * 2^(3/4) * Pi^9 * Gamma(1/4)) = 0.2007048471908800363193160136812560289856774734680572658944418664975... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A110150 G.f.: 4th root of Eisenstein series E_10 (cf. A013974).

Original entry on oeis.org

1, -66, -40392, -9009264, -3725341158, -1400292801072, -604993149612720, -262280205541007808, -118717180239835505592, -54520207050101542651506, -25525844887805197307977968, -12095360676632550886664063760, -5797006133905562955666277287792, -2803076705590018145443840156918512

Offset: 0

N. J. A. Sloane, Sep 15 2005

sign

Vaclav Kotesovec, Table of n, a(n) for n = 0..360
N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.

E_k^(1/4): A289392 (k=2), A289307 (k=4), A289326 (k=6), A289292 (k=8), this sequence (k=10), A289391 (k=14).

Cf. A004984, A013974, A109817, A289294.

nmax = 20; s = 10; CoefficientList[Series[(1 - 2*s/BernoulliB[s] * Sum[DivisorSigma[s - 1, k]*x^k, {k, 1, nmax}])^(1/4), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 02 2017 *)

a(n) ~ c * exp(2*Pi*n) / n^(5/4), where c = -3^(3/4) * Pi^(3/2) / (2^(15/4) * Gamma(3/4)^7) = -0.227361380713650977567497769428903183591275821407342369621... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018

G.f.: Sum_{k>=0} A004984(k) * (33*f(q))^k where f(q) is Sum_{k>=1} sigma_9(k)*q^k. - Seiichi Manyama, Jun 16 2018

A289247 Coefficients in expansion of 1/E_4^(1/8).

Original entry on oeis.org

1, -30, 3780, -616440, 111056910, -21135698280, 4165203862440, -840914061328320, 172810940671692900, -35998781800053352710, 7579904611028433074280, -1609957152292592382408360, 344417407415742189796786680, -74127324674775434904036905640

Offset: 0

Seiichi Manyama, Jul 08 2017

sign

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

E_4^(k/8): A001943 (k=-8), A289566 (k=-4), A295815 (k=-2), this sequence (k=-1), A108091 (k=1), A289307 (k=2), A289308 (k=3), A289292 (k=4), A289309 (k=5), A289318 (k=6), A289319 (k=7), A004009 (k=8).

Cf. A110163, A300147.

nmax = 20; CoefficientList[Series[(1 + 240*Sum[DivisorSigma[3,k]*x^k, {k, 1, nmax}])^(-1/8), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 09 2017 *)

G.f.: Product_{n>=1} (1-q^n)^(-A110163(n)/8).
a(n) ~ (-1)^n * c * exp(Pi*sqrt(3)*n) / n^(7/8), where c = Pi^(3/2) / (2^(15/8) * 3^(1/4) * Gamma(1/3)^(9/4) * Gamma(9/8)) = 0.133402757019143151407904538533... - Vaclav Kotesovec, Jul 09 2017, updated Mar 05 2018
a(0) = 1, a(n) = (1/n)*Sum_{k=1..n} A300147(k)*a(n-k) for n > 0. - Seiichi Manyama, Feb 27 2018

cp's OEIS Frontend

A108091 Coefficients of series whose 8th power is the theta series of E_8 (see A004009).

Views

Author

Keywords

Examples

References

Links

Crossrefs

Programs

Mathematica

Sage

Formula

A289292 Coefficients in expansion of E_4^(1/2).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A289392 Coefficients in expansion of E_2^(1/4).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A092870 Expansion of Hypergeometric function F(1/12, 5/12; 1; 1728*x) in powers of x.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A289308 Coefficients in expansion of E_4^(3/8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A289309 Coefficients in expansion of E_4^(5/8).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A289319 Coefficients in expansion of E_4^(7/8).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A289318 Coefficients in expansion of E_4^(3/4).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula