cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

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

Original entry on oeis.org

1, -120, 20520, -3934560, 793510440, -164694615120, 34824089129760, -7460017581785280, 1613575314347164200, -351613291994820018840, 77073167391611232305520, -16975579813113940564868640, 3753822590560913900129106720
Offset: 0

Views

Author

Seiichi Manyama, Jul 08 2017

Keywords

Links

Crossrefs

1/E_k^(1/2): A289565 (k=2), this sequence (k=4), A289567 (k=6), A001943 (k=8), A289568 (k=10), A289569 (k=14).
Cf. A001943 (1/E_4), A110163, A289292 (E_4^(1/2)).

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(-A110163(n)/2).
a(n) ~ (-1)^n * c * exp(Pi*sqrt(3)*n) / sqrt(n), where c = 3^(7/2) * Gamma(2/3)^9 / (2^(9/2) * Pi^(7/2)) = 0.5756695813762774104492155417156662666189119445257965... - Vaclav Kotesovec, Jul 09 2017, updated Mar 05 2018

A289567 Coefficients in expansion of 1/E_6^(1/2).

Original entry on oeis.org

1, 252, 103572, 46355904, 21754545876, 10493652271032, 5153897870227008, 2563741466120209536, 1287429765611338091988, 651251466581383330576956, 331360676706818772917367912, 169399388595923901462013678656
Offset: 0

Views

Author

Seiichi Manyama, Jul 08 2017

Keywords

Links

Crossrefs

1/E_k^(1/2): A289565 (k=2), A289566 (k=4), this sequence (k=6), A001943 (k=8), A289568 (k=10), A289569 (k=14).
E_6^(k/12): A289570 (k=-18), A000706 (k=-12), this sequence (k=-6), A109817 (k=1), A289325 (k=2), A289326 (k=3), A289327 (k=4), A289328 (k=5), A289293 (k=6), A289345 (k=7), A289346 (k=8), A289347 (k=9), A289348 (k=10), A289349 (k=11).
Cf. A000706 (1/E_6), A288851, A289293 (E_6^(1/2)).

Programs

  • Mathematica
    nmax = 20; CoefficientList[Series[(1 - 504*Sum[DivisorSigma[5,k]*x^k, {k, 1, nmax}])^(-1/2), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 09 2017 *)

Formula

G.f.: Product_{n>=1} (1-q^n)^(-A288851(n)/2).
a(n) ~ c * exp(2*Pi*n) / sqrt(n), where c = 2^(5/2) * Gamma(3/4)^8 / (3*Pi^(5/2)) = 0.5480868931611627439175185425300450785609564636925943866686455998197... - Vaclav Kotesovec, Jul 09 2017, updated Mar 03 2018

A294976 Coefficients in expansion of (E_6/E_2^6)^(1/12).

Original entry on oeis.org

1, -30, -11340, -3912600, -1520905170, -636170644008, -278687199310200, -126000360658968000, -58290111778749466140, -27440829122946510954630, -13096614404248661886145848, -6320198941502349713305002120, -3077986352751848627729986859400
Offset: 0

Views

Author

Seiichi Manyama, Feb 12 2018

Keywords

Crossrefs

Cf. A109817, A289565, A294974, A294975.

Programs

  • Mathematica
    terms = 13;
E2[x_] = 1 - 24*Sum[k*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]/E2[x]^6)^(1/12) + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

Formula

G.f.: Product_{n>=1} (1-q^n)^A294975(n).
a(n) ~ -Gamma(1/3)^2 * Gamma(1/4)^(10/3) * exp(2*Pi*n) / (16 * 2^(1/12) * 3^(7/12) * Pi^(5/2) * Gamma(1/12) * n^(13/12)). - Vaclav Kotesovec, Jun 03 2018
Equivalently, a(n) ~ -Gamma(1/3) * Gamma(1/4)^(7/3) * exp(2*Pi*n) / (2^(23/6) * 3^(23/24) * Pi^2 * sqrt(1 + sqrt(3)) * n^(13/12)). - Vaclav Kotesovec, Nov 26 2024

A289568 Coefficients in expansion of 1/E_10^(1/2).

Original entry on oeis.org

1, 132, 93852, 35163744, 18119136156, 8462089683432, 4234179302847648, 2096050696254014016, 1057219212439789539228, 534730176137991079392036, 272470142855167873443179352, 139363825115618499934478625696
Offset: 0

Views

Author

Seiichi Manyama, Jul 08 2017

Keywords

Links

Crossrefs

1/E_k^(1/2): A289565 (k=2), A289566 (k=4), A289567 (k=6), A001943 (k=8), this sequence (k=10), A289569 (k=14).
Cf. A285836 (1/E_10), A289024, A289294 (E_10^(1/2)).

Programs

  • Mathematica
    nmax = 20; CoefficientList[Series[(1 - 264*Sum[DivisorSigma[9, k]*x^k, {k, 1, nmax}])^(-1/2), {x, 0, nmax}], x] (* Vaclav Kotesovec, Jul 09 2017 *)

Formula

G.f.: Product_{n>=1} (1-q^n)^(-A289024(n)/2).
a(n) ~ c * exp(2*Pi*n) / sqrt(n), where c = 0.4542595790370690606664796229968194763901027924111318430568304678613... = 2^(7/2) * Gamma(3/4)^12 / (3^(3/2) * Pi^(7/2)). - Vaclav Kotesovec, Jul 09 2017, updated Mar 07 2018

A289569 Coefficients in expansion of 1/E_14^(1/2).

Original entry on oeis.org

1, 12, 98532, 22675584, 16099478436, 6580135809432, 3539736295913088, 1699883073000957696, 871767496424764386468, 438331617201642108107916, 224266585355757815798085192, 114622723650418140746841457536, 58945651172799536532104421386880
Offset: 0

Views

Author

Seiichi Manyama, Jul 08 2017

Keywords

Links

Crossrefs

1/E_k^(1/2): A289565 (k=2), A289566 (k=4), A289567 (k=6), A001943 (k=8), A289568 (k=10), this sequence (k=14).
Cf. A287964 (1/E_14), A289029, A289295 (E_14^(1/2)).

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(-A289029(n)/2).
a(n) ~ c * exp(2*Pi*n) / sqrt(n), where c = 0.3764946174077880880364705796802173599460310621830541667074693852949... = 2^(9/2) * Gamma(3/4)^16 / (9 * Pi^(9/2)). - Vaclav Kotesovec, Jul 09 2017, updated Mar 07 2018

A294978 Coefficients in expansion of (E_4/E_2^4)^(1/8).

Original entry on oeis.org

1, 42, -2268, 395304, -64600914, 11644170552, -2188350306072, 424652412357696, -84326944950450972, 17044476557469661986, -3493525880987663047128, 724189608821718233434296, -151528575864988356484968840, 31955212589107172812017247992
Offset: 0

Views

Author

Seiichi Manyama, Feb 12 2018

Keywords

Comments

Also coefficients in expansion of (E_8/E_2^8)^(1/16).

Crossrefs

Cf. A004009 (E_4), A006352 (E_2), A108091, A289565, A294626, A294974.

Programs

  • Mathematica
    terms = 14;
E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, terms}];
E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, terms}];
(E4[x]/E2[x]^4)^(1/8) + O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Feb 26 2018 *)

Formula

Convolution inverse of A294974.
G.f.: Product_{n>=1} (1-q^n)^(-A294626(n)).
a(n) ~ -(-1)^n * Pi^(5/4) * exp(Pi*sqrt(3)*n) / (2^(19/8) * 3^(9/8) * Gamma(2/3)^(9/4) * Gamma(7/8) * n^(9/8)). - Vaclav Kotesovec, Jun 03 2018
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.