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

A288851 Exponents a(1), a(2), ... such that E_6, 1 - 504*q - 16632*q^2 - ... (A013973) is equal to (1-q)^a(1) (1-q^2)^a(2) (1-q^3)^a(3) ... .

Original entry on oeis.org

504, 143388, 51180024, 20556578700, 8806299845112, 3929750661380124, 1803727445909594616, 845145871847732769804, 402283166289266872824312, 193877350835487271784566812, 94381548697864188120110027256, 46328820782943001597184984563596
Offset: 1

Views

Author

Seiichi Manyama, Jun 18 2017

Keywords

Links

Crossrefs

Cf. A288968 (k=2), A110163 (k=4), this sequence (k=6), A288471 (k=8), A289024 (k=10), A288990/A288989 (k=12), A289029 (k=14).
Cf. A008683, A013973 (E_6), A110163, A288840 (E_8/E_6), A289637.

Formula

a(n) = A013975(n^2) for n>=1.
a(n) = 12 + (1/(2*n)) * Sum_{d|n} A008683(n/d) * A288840(d).
a(n) = (1/n) * Sum_{d|n} A008683(n/d) * A289637(d). - Seiichi Manyama, Jul 09 2017
a(n) ~ exp(2*Pi*n) / n. - Vaclav Kotesovec, Mar 08 2018

A110163 Exponents a(1), a(2), ... such that theta series of E_8 lattice, 1 + 240 q + 2160 q^2 + ... (A004009) is equal to (1-q)^a(1) (1-q^2)^a(2) (1-q^3)^a(3) ...

Original entry on oeis.org

-240, 26760, -4096240, 708938760, -130880766192, 25168873498760, -4978357936128240, 1005225129317834760, -206195878414962688240, 42824436296045618358408, -8983966738037593190400240, 1900416270294787067711818760, -404814256845771786255876096240, 86744167089111545378556727322760
Offset: 1

Views

Author

N. J. A. Sloane, Sep 16 2005

Keywords

Comments

Negative of inverse Euler transform of [240, 2160, ...].

Examples

			From _Seiichi Manyama_, Jun 17 2017: (Start)
a(1) = 8 + 1/3 * A008683(1/1) * A288261(1) = 8 + 1/3 * (-744) = -240,
a(2) = 8 + 1/6 * (A008683(2/1) * A288261(1) + A008683(2/2) * A288261(2)) = 8 + 1/6 * (744 + 159768) = 26760. (End)

Links

Crossrefs

Cf. A288968 (k=2), this sequence (k=4), A288851 (k=6), A288471 (k=8), A289024 (k=10), A288990/A288989 (k=12), A289029 (k=14).
Cf. A004009, A008683, A013953, A288261, A289636.

Programs

  • Mathematica
    terms = 14; Clear[a, sol];
a4009[n_] := If[n == 0, 1, 240 DivisorSigma[3, n]];
sol[0] = {}; sol[kmax_] := sol[kmax] = Join[sol[kmax-1], SolveAlways[ Sum[ a4009[k] q^k, {k, 0, kmax}] == Normal[Product[(1-q^k)^a[k], {k, 1, kmax}] + O[q]^(kmax+1)] /. sol[kmax-1], q][[1]] ];
A110163 = Array[a, terms] /. sol[terms] (* Jean-François Alcover, Jul 03 2017 *)

Formula

a(n) = A013953(n^2) for n>=1. - Seiichi Manyama, Jun 17 2017
a(n) = 8 + (1/(3*n)) * Sum_{d|n} A008683(n/d) * A288261(d). - Seiichi Manyama, Jun 17 2017
a(n) = (1/n) * Sum_{d|n} A008683(n/d) * A289636(d). - Seiichi Manyama, Jul 09 2017
a(n) ~ (-1)^n * exp(Pi*sqrt(3)*n) / n. - Vaclav Kotesovec, Mar 08 2018

A288968 Exponents a(1), a(2), ... such that E_2, 1 - 24*q - 72*q^2 - ... (A006352) is equal to (1-q)^a(1) (1-q^2)^a(2) (1-q^3)^a(3) ... .

Original entry on oeis.org

24, 348, 6424, 129300, 2778648, 62114524, 1428337176, 33527349924, 799482197272, 19302454317660, 470740035601176, 11575875047000596, 286650683468840472, 7140515309818664028, 178783562850377621272, 4496350112540599930692
Offset: 1

Views

Author

Seiichi Manyama, Jun 20 2017

Keywords

Links

Crossrefs

Cf. this sequence (k=2), A110163 (k=4), A288851 (k=6), A288471 (k=8), A289024 (k=10), A288990/A288989 (k=12), A289029 (k=14).
Cf. A006352 (E_2), A008683, A288877 (E_4/E_2), A289635.

Formula

a(n) = 2 + (1/(12*n)) * Sum_{d|n} A008683(n/d) * A288877(d).
a(n) = (1/n) * Sum_{d|n} A008683(n/d) * A289635(d).
a(n) ~ 1 / (n * r^(2*n)), where r = A057823. - Vaclav Kotesovec, Mar 08 2018

A289024 Exponents a(1), a(2), ... such that E_10, 1 - 264*q - 135432*q^2 + ... (A013974) is equal to (1-q)^a(1) (1-q^2)^a(2) (1-q^3)^a(3) ... .

Original entry on oeis.org

264, 170148, 47083784, 21265517460, 8675419078920, 3954919534878884, 1798749087973466376, 846151096977050604564, 402076970410851910136072, 193920175271783317402925220, 94372564731126150526919627016, 46330721199213296384252696382356
Offset: 1

Views

Author

Seiichi Manyama, Jun 22 2017

Keywords

Comments

This sequence is related to the identity: E_4*E_6 = E_10.

Links

Crossrefs

Cf. A288968 (k=2), A110163 (k=4), A288851 (k=6), A288471 (k=8), this sequence (k=10), A288990/A288989 (k=12), A289029 (k=14).
Cf. A008683, A288261 (E_6/E_4), A288840 (E_8/E_6), A289639.

Formula

a(n) = A110163(n) + A288851(n) = 20 + (1/n) * (Sum_{d|n} A008683(n/d) * (1/3 * A288261(d) + 1/2 * A288840(d))).
a(n) = (1/n) * Sum_{d|n} A008683(n/d) * A289639(d). - Seiichi Manyama, Jul 09 2017
a(n) ~ exp(2*Pi*n) / n. - Vaclav Kotesovec, Mar 08 2018

A288471 Exponents a(1), a(2), ... such that E_8, 1 + 480*q + 61920*q^2 + ... (A008410) is equal to (1-q)^a(1) (1-q^2)^a(2) (1-q^3)^a(3) ... .

Original entry on oeis.org

-480, 53520, -8192480, 1417877520, -261761532384, 50337746997520, -9956715872256480, 2010450258635669520, -412391756829925376480, 85648872592091236716816, -17967933476075186380800480, 3800832540589574135423637520
Offset: 1

Views

Author

Seiichi Manyama, Jun 21 2017

Keywords

Links

Crossrefs

Cf. A288968 (k=2), A110163 (k=4), A288851 (k=6), this sequence (k=8), A289024 (k=10), A288990/A288989 (k=12), A289029 (k=14).
Cf. A008410 (E_8), A008683, A288261 (E_10/E_8), A289638.

Formula

a(n) = 16 + (2/(3*n)) * Sum_{d|n} A008683(n/d) * A288261(d).
a(n) = 2 * A110163(n) = 2 * A013953(n^2). - Seiichi Manyama, Jun 22 2017
a(n) = (1/n) * Sum_{d|n} A008683(n/d) * A289638(d). - Seiichi Manyama, Jul 09 2017
a(n) ~ 2 * (-1)^n * exp(Pi*sqrt(3)*n) / n. - Vaclav Kotesovec, Mar 08 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

Links

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

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

Original entry on oeis.org

1, -12, -98388, -20312544, -5889254484, -2083830070392, -810894400450848, -334381509272710464, -143464412162723380308, -63364234685240118242604, -28614423885137875351570248, -13150804531745894256074689056
Offset: 0

Views

Author

Seiichi Manyama, Jul 02 2017

Keywords

Links

Crossrefs

E_k^(1/2): A289291 (k=2), A289292 (k=4), A289293 (k=6), A004009 (k=8), A289294 (k=10), this sequence (k=14).
Cf. A058550 (E_14), A289029.

Programs

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

Formula

G.f.: Product_{n>=1} (1-q^n)^(A289029(n)/2).
a(n) ~ c * exp(2*Pi*n) / n^(3/2), where c = -9 * Pi^(7/2) / (2^(11/2) * Gamma(3/4)^16) = -0.422728335899452596724927626919867458580193404969719... - 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

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

A289391 Coefficients in expansion of E_14^(1/4).

Original entry on oeis.org

1, -6, -49212, -10451544, -4218246978, -1581565900392, -677142351901080, -293172823731286848, -132241381826055031692, -60651805300034501958126, -28350123351848675673466968, -13420046900399367136336144200
Offset: 0

Views

Author

Seiichi Manyama, Jul 05 2017

Keywords

Links

Crossrefs

E_k^(1/4): A289392 (k=2), A289307 (k=4), A289326 (k=6), A289292 (k=8), A110150 (k=10), this sequence (k=14).
Cf. A004984, A058550 (E_14).

Programs

  • Mathematica
    nmax = 20; CoefficientList[Series[(1 - 24*Sum[DivisorSigma[13, 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)^(A289029(n)/4).
a(n) ~ c * exp(2*Pi*n) / n^(5/4), where c = -3*Pi^2 / (2^(17/4) * Gamma(3/4)^9) = -0.2497407198517688195944362279691013167903920989625478927175764401875... - Vaclav Kotesovec, Jul 08 2017, updated Mar 05 2018
G.f.: Sum_{k>=0} A004984(k) * (3*f(q))^k where f(q) is Sum_{k>=1} sigma_13(k)*q^k. - Seiichi Manyama, Jun 16 2018
Showing 1-9 of 9 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.