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.

A331607 E.g.f.: exp(1 / (1 - sin(x)) - 1).

Original entry on oeis.org

1, 1, 3, 12, 61, 372, 2639, 21280, 191833, 1908688, 20750331, 244478784, 3100597333, 42088689216, 608543191559, 9332562964480, 151252803045937, 2582250195499264, 46306562212010355, 870011934425816064, 17086276243125287917
Offset: 0

Views

Author

Ilya Gutkovskiy, Jan 22 2020

Keywords

Crossrefs

Cf. A000111, A000772, A002017, A331608, A331610, A331611.

Programs

  • Mathematica
    nmax = 20; CoefficientList[Series[Exp[1/(1 - Sin[x]) - 1], {x, 0, nmax}], x] Range[0, nmax]!
A000111[n_] := If[EvenQ[n], Abs[EulerE[n]], Abs[(2^(n + 1) (2^(n + 1) - 1) BernoulliB[n + 1])/(n + 1)]]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] A000111[k + 1] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 20}]

Formula

a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * A000111(k+1) * a(n-k).
a(n) ~ 2^(n + 2/3) * exp(8/(3*Pi^2) - 5/6 + 2^(5/3) * n^(1/3) / Pi^(4/3) + 3 * 2^(1/3) * n^(2/3) / Pi^(2/3) - n) * n^(n - 1/6) / (sqrt(3) * Pi^(n + 1/3)). - Vaclav Kotesovec, Jan 26 2020

A331611 E.g.f.: exp(1 / (2 - cosh(x)) - 1) (even powers only).

Original entry on oeis.org

1, 1, 10, 241, 10585, 732826, 73233205, 9955632961, 1764233731270, 394629336427021, 108652463882802505, 36084903957564392206, 14217903951354603567385, 6554505383225768210009041, 3493988190176442653240091010, 2131975894217009666242489287001
Offset: 0

Views

Author

Ilya Gutkovskiy, Jan 22 2020

Keywords

Crossrefs

Cf. A005046, A050351, A075729, A094088, A331608, A331612.

Programs

  • Mathematica
    nmax = 15; Table[(CoefficientList[Series[Exp[1/(2 - Cosh[x]) - 1], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]
A094088[0] = 1; A094088[n_] := A094088[n] = Sum[Binomial[2 n, 2 k] A094088[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[2 n - 1, 2 k - 1] A094088[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 15}]

Formula

a(0) = 1; a(n) = Sum_{k=1..n} binomial(2*n-1,2*k-1) * A094088(k) * a(n-k).
a(n) ~ 2^(2*n + 1/4) * exp(1/(2*sqrt(3)*log(2 + sqrt(3))) - 2/3 + sqrt(8*n/log(2 + sqrt(3)))/3^(1/4) - 2*n) * n^(2*n - 1/4) / (3^(1/8) * log(2 + sqrt(3))^(2*n + 1/4)). - Vaclav Kotesovec, Jan 26 2020

A331616 E.g.f.: exp(1 / (1 - arcsinh(x)) - 1).

Original entry on oeis.org

1, 1, 3, 12, 61, 380, 2783, 23240, 217817, 2267472, 25924827, 322257408, 4325450325, 62374428480, 961296291447, 15754664717184, 273537984529713, 5016337928401152, 96871316157146163, 1964030207217042432, 41706446669511523821, 925774982414999202816
Offset: 0

Views

Author

Ilya Gutkovskiy, Jan 22 2020

Keywords

Comments

a(257) is negative. - Vaclav Kotesovec, Jan 26 2020

Links

Crossrefs

Cf. A079484, A296435, A296675, A331607, A331608, A331615, A331617, A331618.

Programs

  • Mathematica
    nmax = 21; CoefficientList[Series[Exp[1/(1 - ArcSinh[x]) - 1], {x, 0, nmax}], x] Range[0, nmax]!
A296675[0] = 1; A296675[n_] := A296675[n] = Sum[Binomial[n, k] If[OddQ[k], (-1)^Boole[IntegerQ[(k + 1)/4]] ((k - 2)!!)^2, 0] A296675[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] A296675[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 21}]
  • PARI
    seq(n)={Vec(serlaplace(exp(1/(1 - asinh(x + O(x*x^n))) - 1)))} \\ Andrew Howroyd, Jan 22 2020

Formula

a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * A296675(k) * a(n-k).
a(n) ~ 8*(-4*Pi*cos(Pi*(n - 4/(4 + Pi^2))/2) - (Pi^2 - 4)*sin(Pi*(n - 4/(4 + Pi^2))/2)) * n^(n-1) / ((4 + Pi^2)^2 * exp(n + 1 - 4/(4 + Pi^2))). - Vaclav Kotesovec, Jan 26 2020

A331615 E.g.f.: exp(1 / (1 - arcsin(x)) - 1).

Original entry on oeis.org

1, 1, 3, 14, 85, 640, 5703, 58760, 685353, 8925632, 128231627, 2014061568, 34312150525, 630043097216, 12400033125647, 260357810321664, 5807790344591953, 137144754146230272, 3417248676737769619, 89590823377278496768, 2465026658283881339301
Offset: 0

Views

Author

Ilya Gutkovskiy, Jan 22 2020

Keywords

Crossrefs

Cf. A006228, A189780, A189815, A331607, A331608, A331616, A331617, A331618.

Programs

  • Mathematica
    nmax = 20; CoefficientList[Series[Exp[1/(1 - ArcSin[x]) - 1], {x, 0, nmax}], x] Range[0, nmax]!
A189780[0] = 1; A189780[n_] := A189780[n] = Sum[Binomial[n, k] If[OddQ[k], ((k - 2)!!)^2, 0] A189780[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] A189780[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 20}]
  • PARI
    seq(n)={Vec(serlaplace(exp(1/(1 - asin(x + O(x*x^n))) - 1)))} \\ Andrew Howroyd, Jan 22 2020

Formula

a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * A189780(k) * a(n-k).

A332257 E.g.f.: (1 - sinh(x)) / (1 - 2*sinh(x)).

Original entry on oeis.org

1, 1, 4, 25, 208, 2161, 26944, 391945, 6515968, 121866721, 2532496384, 57890223865, 1443611004928, 38999338931281, 1134616226381824, 35367467110007785, 1175946733416153088, 41543231955279099841, 1553948045857778827264, 61355543097139813855705
Offset: 0

Views

Author

Ilya Gutkovskiy, Feb 08 2020

Keywords

Links

Crossrefs

Cf. A000557, A000670, A002866, A006154, A050351, A331608.

Programs

  • Mathematica
    nmax = 19; CoefficientList[Series[(1 - Sinh[x])/(1 - 2 Sinh[x]), {x, 0, nmax}], x] Range[0, nmax]!
  • PARI
    seq(n)={Vec(serlaplace((1 - sinh(x + O(x*x^n))) / (1 - 2*sinh(x + O(x*x^n)))))} \\ Andrew Howroyd, Feb 08 2020

Formula

a(0) = 1; a(n) = Sum_{k=1..n} binomial(n,k) * A006154(k) * a(n-k).
a(n) ~ n! / (2*sqrt(5) * log((1 + sqrt(5))/2)^(n+1)). - Vaclav Kotesovec, Feb 08 2020
Showing 1-5 of 5 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.