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-5 of 5 results.

A287933 Coefficients in expansion of 1/E_8.

Original entry on oeis.org

1, -480, 168480, -52199040, 15119446560, -4198347132480, 1132514464199040, -299116847254053120, 77742157641008378400, -19951615350261029163360, 5068304275307482667436480, -1276700988345016720650917760
Offset: 0

Views

Author

Seiichi Manyama, Jun 17 2017

Keywords

Crossrefs

Cf. A008410 (E_8).
Cf. A288816 (k=2), A001943 (k=4), A000706 (k=6), this sequence (k=8), A285836 (k=10), A287964 (k=14).

Formula

a(n) ~ (-1)^n * c * exp(Pi*sqrt(3)*n) * n, where c = (262144 * Pi^24) / (81 * Gamma(1/3)^36) = 1.0839091249080051624370140889296742679583925822413671... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 2018

A289640 Coefficients in expansion of -q*E'_14/E_14 where E_14 is the Eisenstein Series (A058550).

Original entry on oeis.org

24, 393840, 128962656, 87898218720, 42722691563664, 23880530579622336, 12556395110261366976, 6777250576938845733312, 3616836970791932655993144, 1939629997080836352904793760, 1037999388408269242271021494560
Offset: 1

Views

Author

Seiichi Manyama, Jul 09 2017

Keywords

Crossrefs

-q*E'_k/E_k: A289635 (k=2), A289636 (k=4), A289637 (k=6), A289638 (k=8), A289639 (k=10), this sequence (k=14).
Cf. A006352 (E_2), A058550 (E_14), A287964, A289029.

Programs

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

Formula

a(n) = Sum_{d|n} d * A289029(d).
a(n) = 2*A288261(n)/3 + A288840(n)/2 + 28*A000203(n).
a(n) = -Sum_{k=1..n-1} A058550(k)*a(n-k) - A058550(n)*n.
G.f.: 2/3 * E_6/E_4 + 1/2 * E_8/E_6 - 7/6 * E_2.
a(n) ~ exp(2*Pi*n). - Vaclav Kotesovec, Jul 09 2017

A288816 Coefficients in expansion of 1/E_2.

Original entry on oeis.org

1, 24, 648, 17376, 466152, 12505104, 335466144, 8999325120, 241418862504, 6476381979576, 173737557697968, 4660740989265312, 125030574027131424, 3354111390776151504, 89978497733627940672, 2413792838444465745216, 64753202305891291798824
Offset: 0

Views

Author

Seiichi Manyama, Jun 17 2017

Keywords

Crossrefs

Cf. A006352 (E_2).
Cf. this sequence (k=2), A001943 (k=4), A000706 (k=6), A287933 (k=8), A285836 (k=10), A287964 (k=14).

Formula

G.f.: 1/(1 - 24*sum(k>=1, k*x^k/(1 - x^k))).
a(n) ~ c / r^n, where r = A211342 = 0.037276810296451658150980785651644618... is the root of the equation Sum_{k>=1} A000203(k) * r^k = 1/24 and c = 0.900080074462078245744608120875628441926356101483729... - Vaclav Kotesovec, Jul 02 2017

A285836 Coefficients in expansion of 1/E_10.

Original entry on oeis.org

1, 264, 205128, 95104416, 54329698632, 28308006715824, 15339873507244704, 8172566140980183360, 4385988806258507934024, 2346434028637391065282536, 1257009611855633134427201328, 672999598306502464042506285792
Offset: 0

Views

Author

Seiichi Manyama, Jun 17 2017

Keywords

Crossrefs

Cf. A013974 (E_10).
Cf. A288816 (k=2), A001943 (k=4), A000706 (k=6), A287933 (k=8), this sequence (k=10), A287964 (k=14).

Formula

a(n) ~ c * exp(2*Pi*n), where c = 128 * Gamma(3/4)^24 / (27 * Pi^6) = 0.648273189440897942951926047466605067667211940159693598407336163991191821438... - Vaclav Kotesovec, Jul 02 2017, updated Mar 05 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

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
Showing 1-5 of 5 results.