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.

Previous Showing 11-18 of 18 results.

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

A289636 Coefficients in expansion of -q*E'_4/E_4 where E_4 is the Eisenstein Series (A004009).

Original entry on oeis.org

-240, 53280, -12288960, 2835808320, -654403831200, 151013228757120, -34848505552897920, 8041801037378486400, -1855762905734676483120, 428244362959801779806400, -98823634118413525094402880, 22804995243537595828606337280
Offset: 1

Views

Author

Seiichi Manyama, Jul 09 2017

Keywords

Examples

			a(1) = 1 * A110163(1) = -240,
a(2) = 1 * A110163(1) + 2 * A110163(2) = 53280,
a(3) = 1 * A110163(1) + 3 * A110163(3) = -12288960.

Links

Crossrefs

-q*E'_k/E_k: A289635 (k=2), this sequence (k=4), A289637 (k=6), A289638 (k=8), A289639 (k=10), A289640 (k=14).
Cf. A001943, A004009 (E_4), A006352 (E_2), A110163, A145094, A289633.

Programs

  • Mathematica
    nmax = 20; Rest[CoefficientList[Series[-240*x*Sum[k*DivisorSigma[3, k]*x^(k-1), {k, 1, nmax}]/(1 + 240*Sum[DivisorSigma[3, k]*x^k, {k, 1, nmax}]), {x, 0, nmax}], x]] (* Vaclav Kotesovec, Jul 09 2017 *)
terms = 12; Ei[n_] = 1-(2n/BernoulliB[n]) Sum[k^(n-1) x^k/(1-x^k), {k, terms}]; CoefficientList[-D[Ei[4], x]/Ei[4] + O[x]^terms, x] (* Jean-François Alcover, Mar 01 2018 *)

Formula

a(n) = Sum_{d|n} d * A110163(d) = A289633(n)/6.
a(n) = A288261(n)/3 + 8*A000203(n).
a(n) = -Sum_{k=1..n-1} A004009(k)*a(n-k) - A004009(n)*n.
G.f.: 1/3 * E_6/E_4 - 1/3 * E_2.
a(n) ~ (-1)^n * exp(Pi*sqrt(3)*n). - Vaclav Kotesovec, Jul 09 2017

A289638 Coefficients in expansion of -q*E'_8/E_8 where E_8 is the Eisenstein Series (A008410).

Original entry on oeis.org

-480, 106560, -24577920, 5671616640, -1308807662400, 302026457514240, -69697011105795840, 16083602074756972800, -3711525811469352966240, 856488725919603559612800, -197647268236827050188805760, 45609990487075191657212674560
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), this sequence (k=8), A289639 (k=10), A289640 (k=14).
Cf. A006352 (E_2), A008410 (E_8), A287933, A288471.

Programs

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

Formula

a(n) = Sum_{d|n} d * A288471(d).
a(n) = 2*A288261(n)/3 + 16*A000203(n).
a(n) = -Sum_{k=1..n-1} A008410(k)*a(n-k) - A008410(n)*n.
G.f.: 2/3 * E_6/E_4 - 2/3 * E_2 = 2/3 * E_10/E_8 - 2/3 * E_2.
a(n) ~ 2 * (-1)^n * exp(Pi*sqrt(3)*n). - Vaclav Kotesovec, Jul 09 2017

A289639 Coefficients in expansion of -q*E'_10/E_10 where E_10 is the Eisenstein Series (A013974).

Original entry on oeis.org

264, 340560, 141251616, 85062410400, 43377095394864, 23729517350865216, 12591243615814264896, 6769208775901467246912, 3618692733697667332476264, 1939201752717876551124987360, 1038098212042387655796115897440
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), this sequence (k=10), A289640 (k=14).
Cf. A006352 (E_2), A013974 (E_10), A285836, A289024.

Programs

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

Formula

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

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

A289141 Table of expansion of j_n in powers of j (A000521).

Original entry on oeis.org

1, -744, 1, 159768, -1488, 1, -36866976, 1069956, -2232, 1, 8507424792, -561444608, 2533680, -2976, 1, -1963211493744, 246683410950, -2028551200, 4550940, -3720, 1, 453039686271072, -96687754014528, 1304194222980, -4850017536, 7121736, -4464, 1
Offset: 0

Views

Author

Seiichi Manyama, Jun 26 2017

Keywords

Examples

			The table a(n,m) starts:
  n\m          0           1        2      3  4
   0:          1
   1:       -744,          1
   2:     159768,      -1488,       1
   3:  -36866976,    1069956,   -2232,     1
   4: 8507424792, -561444608, 2533680, -2976, 1

Links

Crossrefs

Cf. A014708 (j_1), A288843 (j_2), A288844 (j_3), A289116 (j_4), A289148 (j_5), A289149 (j_6).
Cf. A288261 (E_6/E_4), A288840 (E_8/E_6).

A289395 a(n) = A110163(n)/8.

Original entry on oeis.org

-30, 3345, -512030, 88617345, -16360095774, 3146109187345, -622294742016030, 125653141164729345, -25774484801870336030, 5353054537005702294801, -1122995842254699148800030, 237552033786848383463977345, -50601782105721473281984512030
Offset: 1

Views

Author

Seiichi Manyama, Jul 05 2017

Keywords

Links

Crossrefs

Cf. A004009 (E_4), A108091 (E_4^(1/8)), A110163.
Cf. A289394, A289396.

Formula

a(n) = 1 + (1/(24*n)) * Sum_{d|n} A008683(n/d) * A288261(d).

A294182 Coefficients in expansion of E_4/E_6.

Original entry on oeis.org

1, 744, 393768, 210962976, 112966533672, 60492691156464, 32393330061359904, 17346357971979746880, 9288829947058862457384, 4974090926254339741926216, 2663584184830281769743846768, 1426327104764356980195826984032
Offset: 0

Views

Author

Seiichi Manyama, Feb 11 2018

Keywords

Links

Crossrefs

Cf. A000706, A004009 (E_4), A013973 (E_6), A288261.
E_k/E_{k+2}: A294181 (k=2), this sequence (k=4), A294183 (k=6).

Programs

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

Formula

Convolution inverse of A288261.
a(n) ~ 8 * Gamma(3/4)^8 * exp(2*Pi*n) / (3*Pi^2). - Vaclav Kotesovec, Jun 03 2018
Previous Showing 11-18 of 18 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.