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-10 of 17 results. Next

A109817 G.f.: 12th root of Eisenstein series E_6 (cf. A013973).

Original entry on oeis.org

1, -42, -11088, -3774624, -1472710974, -617481728640, -270883381218912, -122585272771463040, -56747118995519331456, -26727350506044696990762, -12760853360973370821796320, -6159994719956314185540737376, -3000691311646502407278581263104, -1472883416501251994527873967792256
Offset: 0

Views

Author

N. J. A. Sloane, Sep 15 2005

Keywords

Links

Crossrefs

E_6^(k/12): this sequence (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. A001160, A013973, A288851, A299503, A303055.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(A288851(n)/12). - Seiichi Manyama, Jul 02 2017
a(n) ~ c * exp(2*Pi*n) / n^(13/12), where c = -Gamma(1/4)^(10/3) * Gamma(1/3)^2 / (16 * 6^(1/12) * Pi^3 * Gamma(1/12)) = -0.079329971529325538458906713053582098... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018
Equivalently, c = -Gamma(1/3) * Gamma(1/4)^(7/3) / (2^(23/6) * 3^(11/24) * sqrt(1 + sqrt(3)) * Pi^(5/2)). - Vaclav Kotesovec, Aug 03 2025
a(0) = 1, a(n) = -(1/n)*Sum_{k=1..n} A299503(k)*a(n-k) for n > 0. - Seiichi Manyama, Feb 27 2018
G.f.: Sum_{k>=0} A303055(k) * f(q)^k where f(q) is Sum_{k>=1} sigma_5(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

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Links

Crossrefs

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.

Programs

  • Mathematica
    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 *)

Formula

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

A289326 Coefficients in expansion of E_6^(1/4).

Original entry on oeis.org

1, -126, -27972, -8603784, -3156774138, -1265670056952, -536028623834760, -235629947944839168, -106414175763732002292, -49052892961209924090486, -22977990271885179647877768, -10904016663130642099838196120
Offset: 0

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Links

Crossrefs

E_6^(k/12): A109817 (k=1), A289325 (k=2), this sequence (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. A013973 (E_6), A288851.

Programs

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

Formula

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

A289325 Coefficients in expansion of E_6^(1/6).

Original entry on oeis.org

1, -84, -20412, -6617856, -2505409788, -1027549673640, -442991672331264, -197605206331169280, -90359564898413083644, -42105781947560460595284, -19913609001700051596476280, -9531377528273693889501019392
Offset: 0

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Examples

			From _Seiichi Manyama_, Jul 08 2017: (Start)
2F1(1/12, 7/12; 1; 1728/(1728 - j))
= 1 - A289557(1)/(j - 1728) + A289557(2)/(j - 1728)^2 - A289557(3)/(j - 1728)^3 + ...
= 1 - 84/(j - 1728) + 62244/(j - 1728)^2 - 64318800/(j - 1728)^3 + ...
= 1 - 84*q - 82656*q^2 -  64795248*q^3 - ...
           + 62244*q^2 + 122496192*q^3 + ...
                       -  64318800*q^3 - ...
                                       + ...
= 1 - 84*q - 20412*q^2 -   6617856*q^3 - ... (End)

Links

Crossrefs

E_6^(k/12): A109817 (k=1), this sequence (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. A013973 (E_6), A288851, A289417, A289557.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(A288851(n)/6).
G.f.: 2F1(1/12, 7/12; 1; 1728/(1728-j)) where j is the elliptic modular invariant (A000521). - Seiichi Manyama, Jul 07 2017
a(n) ~ c * exp(2*Pi*n) / n^(7/6), where c = -Gamma(1/4)^(8/3) * Gamma(1/3)^2 / (2^(9/2) * 3^(1/6) * Pi^(7/2)) = -0.149083170913265334790743918765758886634155... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A289327 Coefficients in expansion of E_6^(1/3).

Original entry on oeis.org

1, -168, -33768, -9806496, -3482370024, -1364023149552, -567278132268960, -245678241438057792, -109559333350138970088, -49951945835561166375048, -23173552482577051154061168, -10901813191731667585777068000
Offset: 0

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Links

Crossrefs

E_6^(k/12): A109817 (k=1), A289325 (k=2), A289326 (k=3), this sequence (k=4), A289328 (k=5), A289293 (k=6), A289345 (k=7), A289346 (k=8), A289347 (k=9), A289348 (k=10), A289349 (k=11).
Cf. A013973 (E_6), A288851.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(A288851(n)/3).
a(n) ~ c * exp(2*Pi*n) / n^(4/3), where c = -3^(1/6) * Gamma(1/4)^(16/3) * Gamma(1/3) / (32 * 2^(1/3) * Pi^5) = -0.25096087408563316781920388861983614789... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A289328 Coefficients in expansion of E_6^(5/12).

Original entry on oeis.org

1, -210, -37800, -10300080, -3534651750, -1351633962672, -551776752641520, -235367241169341120, -103623939263346377400, -46723958347194591810690, -21464711387762586693907248, -10009787904868201520473221840
Offset: 0

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Crossrefs

E_6^(k/12): A109817 (k=1), A289325 (k=2), A289326 (k=3), A289327 (k=4), this sequence (k=5), A289293 (k=6).
Cf. A013973 (E_6), A288851.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(5*A288851(n)/12).
a(n) ~ c * exp(2*Pi*n) / n^(17/12), where c = -5 * Gamma(1/12) * Gamma(1/4)^(20/3) / (128 * 2^(11/12) * 3^(2/3) * Pi^5 * Gamma(1/3)^2) = -0.2792181117471536554156263079143941137076647484619917046386429000631... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A289291 Coefficients in expansion of E_2^(1/2).

Original entry on oeis.org

1, -12, -108, -1344, -22044, -409752, -8201088, -172293504, -3746915388, -83625518604, -1904468689368, -44079484775616, -1033852665619200, -24518163456010392, -586936016770722048, -14164129272396668544, -344209494372831399036
Offset: 0

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Links

Crossrefs

E_k^(1/2): this sequence (k=2), A289292 (k=4), A289293 (k=6), A004009 (k=8), A289294 (k=10), A289295 (k=14).
Cf. A006352 (E_2), A288968.

Formula

G.f.: Product_{n>=1} (1-q^n)^(A288968(n)/2).
a(n) ~ c / (r^n * n^(3/2)), where r = A211342 = 0.03727681029645165815098078... is the root of the equation Sum_{k>=1} A000203(k) * r^k = 1/24 and c = -0.297340792206337929158904153045493466135450465337136... - Vaclav Kotesovec, Jul 02 2017

A289345 Coefficients in expansion of E_6^(7/12).

Original entry on oeis.org

1, -294, -40572, -9456216, -3013531458, -1095736644072, -430427492908056, -177966281438573376, -76323096421188881292, -33643171872410204427918, -15150435131179232328586968, -6940567145625149028384495432
Offset: 0

Views

Author

Seiichi Manyama, Jul 03 2017

Keywords

Crossrefs

E_6^(k/12): A109817 (k=1), A289325 (k=2), A289326 (k=3), A289327 (k=4), A289328 (k=5), A289293 (k=6), this sequence (k=7), A289346 (k=8), A289347 (k=9), A289348 (k=10), A289349 (k=11).
Cf. A013973 (E_6), A288851.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(7*A288851(n)/12).
a(n) ~ c * exp(2*Pi*n) / n^(19/12), where c = -7 * Gamma(1/12) * Gamma(1/4)^(22/3) / (1024 * 6^(1/12) * Pi^7) = -0.2836006135316422535659652380776952016594933981... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018

A289346 Coefficients in expansion of E_6^(2/3).

Original entry on oeis.org

1, -336, -39312, -8266944, -2529479568, -895678457184, -344891780549568, -140330667583849344, -59379605532142099344, -25873741825665005773200, -11534062764689844375098592, -5236325710480558290644292672
Offset: 0

Views

Author

Seiichi Manyama, Jul 03 2017

Keywords

Crossrefs

E_6^(k/12): A109817 (k=1), A289325 (k=2), A289326 (k=3), A289327 (k=4), A289328 (k=5), A289293 (k=6), A289345 (k=7), this sequence (k=8), A289347 (k=9), A289348 (k=10), A289349 (k=11).
Cf. A013973 (E_6), A288851.

Programs

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

Formula

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

A289347 Coefficients in expansion of E_6^(3/4).

Original entry on oeis.org

1, -378, -36288, -6664896, -1950813774, -672039262944, -253536117254784, -101485291597998336, -42360328701954544176, -18242860786892766495450, -8049299329628263783504512, -3621056234759774113947852096
Offset: 0

Views

Author

Seiichi Manyama, Jul 03 2017

Keywords

Crossrefs

E_6^(k/12): A109817 (k=1), A289325 (k=2), A289326 (k=3), A289327 (k=4), A289328 (k=5), A289293 (k=6), A289345 (k=7), A289346 (k=8), this sequence (k=9), A289348 (k=10), A289349 (k=11).
Cf. A013973 (E_6), A288851.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(3*A288851(n)/4).
a(n) ~ c * exp(2*Pi*n) / n^(7/4), where c = -3^(5/2) * Gamma(1/4)^11 / (2048 * 2^(3/4) * Pi^9) = -0.21604472104032272720247495618663130188448925463945370445... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018
Showing 1-10 of 17 results. Next

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

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