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

A245140 E.g.f.: (cosh(2*x) + sinh(2*x)*cosh(x)) / (cosh(x) - sinh(x)*cosh(2*x)).

Original entry on oeis.org

1, 3, 9, 45, 297, 2433, 23949, 275145, 3612177, 53348193, 875453589, 15802999545, 311196040857, 6638817262353, 152521855979229, 3754366520240745, 98575724288354337, 2749997026637342913, 81230299711952152869, 2532707187355266614745, 83124358113443446120617, 2864579803637260793877873
Offset: 0

Views

Author

Paul D. Hanna, Jul 12 2014

Keywords

Comments

Limit (a(n)/n!)^(-1/n) = log(t) = 0.609377863436... where t is the tribonacci constant and satisfies 1 + t + t^2 = t^3.
In general, the radius of convergence r of the e.g.f. (cosh(p*x) + sinh(p*x)*cosh(q*x)) / (cosh(q*x) - sinh(q*x)*cosh(p*x)), where p and q are positive integers, equals r = log(t) such that t is the positive real root that satisfies: 1 + t^p + t^q = t^(p+q).

Examples

			E.g.f.: A(x) = 1 + 3*x + 9*x^2/2! + 45*x^3/3! + 297*x^4/4! + 2433*x^5/5! +...
such that A(x) = B(x)*C(x), where
B(x) = 1 + x + x^2/2! + 13*x^3/3! + 49*x^4/4! + 361*x^5/5! + 3121*x^6/6! +...
C(x) = 1 + 2*x + 4*x^2/2! + 14*x^3/3! + 64*x^4/4! + 602*x^5/5! + 5344*x^6/6! +...
are the e.g.f.s of A245138 and A245139, respectively.
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + 9*x^2/2! + 297*x^4/4! + 23949*x^6/6! + 3612177*x^8/8! +...
A1(x) = 3*x + 45*x^3/3! + 2433*x^5/5! + 275145*x^7/7! + 53348193*x^9/9! +...
then A0(x)^2 - A1(x)^2 = 1.
Note that the logarithm is an odd function:
log(A(x)) = 3*x + 18*x^3/3! + 570*x^5/5! + 46158*x^7/7! + 6959250*x^9/9! + 1686709398*x^11/11! + 599570355930*x^13/13! + 3754366520240745*x^15/15! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245138, A245139, A245155, A245166.
Cf. A322620, A322190.

Programs

  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff( (cosh(2*X) + sinh(2*X)*cosh(X)) / (cosh(X) - sinh(X)*cosh(2*X)), n)}
for(n=0,30,print1(a(n),", "))
  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff((cosh(X) + sinh(X)*cosh(2*X)) * (cosh(2*X) + sinh(2*X)*cosh(X)) / (1 - sinh(X)^2*sinh(2*X)^2),n)}
for(n=0,30,print1(a(n),", "))

Formula

E.g.f.: (cosh(x) + sinh(x)*cosh(2*x)) * (cosh(2*x) + sinh(2*x)*cosh(x)) / (1 - sinh(x)^2*sinh(2*x)^2).
E.g.f.: (cosh(x)*cosh(2*x) + sinh(x) + sinh(2*x)) / (1 - sinh(x)*sinh(2*x)). - Paul D. Hanna, Dec 22 2018
E.g.f.: A(x) = B(x)*C(x), where B(x) and C(x) are the e.g.f.s of A245138 and A245139, respectively.
Let e.g.f. A(x) = A0(x) + A1(x) where A0(x) = (A(x)+A(-x))/2 and A1(x) = (A(x)-A(-x))/2, then:
(1) A0(x)^2 - A1(x)^2 = 1.
(2) exp(x) = (A0(x) + A1(x)*cosh(2*x)) * (cosh(2*x) - sinh(2*x)*A0(x)) / (1 - sinh(2*x)^2*A1(x)^2).
(3) exp(2*x) = (A0(x) + A1(x)*cosh(x)) * (cosh(x) - sinh(x)*A0(x)) / (1 - sinh(x)^2*A1(x)^2).
From Paul D. Hanna, Dec 22 2018: (Start)
(4) exp(x) = (A0(x)*cosh(2*x) + A1(x) - sinh(2*x)) / (1 + sinh(2*x)*A1(x)).
(5) exp(2*x) = (A0(x)*cosh(x) + A1(x) - sinh(x)) / (1 + sinh(x)*A1(x)). (End)
FORMULAS FOR TERMS.
From Paul D. Hanna, Dec 22 2018: (Start)
a(n) = Sum_{k=0..n} 2^k * A322620(n,k).
a(n) = Sum_{k=0..n} 2^k * binomial(n,k) * A322190(n,k). (End)

A245138 E.g.f.: (cosh(x) + sinh(x)*cosh(2*x)) / sqrt(1 - sinh(x)^2*sinh(2*x)^2).

Original entry on oeis.org

1, 1, 1, 13, 49, 361, 3121, 39733, 409249, 6410641, 91979041, 1716516253, 29795642449, 660718214521, 13656276138961, 345794520085573, 8290832204163649, 237409681243284001, 6465138777774530881, 206263448435258395693, 6296129943088315156849, 221484543685548532051081
Offset: 0

Views

Author

Paul D. Hanna, Jul 12 2014

Keywords

Comments

Limit (a(n)/n!)^(-1/n) = log(t) = 0.609377863436... where t is the tribonacci constant and satisfies 1 + t + t^2 = t^3.

Examples

			E.g.f.: A(x) = 1 + x + x^2/2! + 13*x^3/3! + 49*x^4/4! + 361*x^5/5! +...
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + x^2/2! + 49*x^4/4! + 3121*x^6/6! + 409249*x^8/8! + 91979041*x^10/10! +...
A1(x) = x + 13*x^3/3! + 361*x^5/5! + 39733*x^7/7! + 6410641*x^9/9! +...
then A0(x)^2 - A1(x)^2 = 1.
Note that the logarithm of the e.g.f. is an odd function:
Log(A(x)) = x + 12*x^3/3! + 240*x^5/5! + 24192*x^7/7! + 3452160*x^9/9! + 841961472*x^11/11! + 300389806080*x^13/13! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245139, A245140, A245153, A245164.

Programs

  • Mathematica
    With[{nn=30},CoefficientList[Series[(Cosh[x]+Sinh[x]Cosh[2x])/Sqrt[1-Sinh[x]^2 Sinh[2x]^2],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Oct 29 2017 *)
  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff((cosh(X) + sinh(X)*cosh(2*X)) / sqrt(1 - sinh(X)^2*sinh(2*X)^2),n)}
for(n=0,30,print1(a(n),", "))

Formula

E.g.f.: G(x) * (cosh(2*x) - sinh(2*x)*cosh(x)) / sqrt(1 - sinh(x)^2*sinh(2*x)^2), where G(x) is the e.g.f. of A245140.

A245154 E.g.f.: (cosh(3*x) + sinh(3*x)*cosh(x)) / sqrt(1 - sinh(x)^2*sinh(3*x)^2).

Original entry on oeis.org

1, 3, 9, 36, 189, 2148, 26109, 371136, 5407929, 95795568, 1832049009, 41428038336, 972380766069, 25736128903488, 705111069908709, 21600790506395136, 683861855417706609, 23836956839153265408, 853476673589938069209, 33263825890074489025536
Offset: 0

Views

Author

Paul D. Hanna, Jul 12 2014

Keywords

Comments

Limit (a(n)/n!)^(-1/n) = log( (1+sqrt(5))/2 ) = 0.4812118250596...

Examples

			E.g.f.: A(x) = 1 + 3*x + 9*x^2/2! + 36*x^3/3! + 189*x^4/4! + 2148*x^5/5! +...
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + 9*x^2/2! + 189*x^4/4! + 26109*x^6/6! + 5407929*x^8/8! +...
A1(x) = 3*x + 36*x^3/3! + 2148*x^5/5! + 371136*x^7/7! + 95795568*x^9/9! +...
then A0(x)^2 - A1(x)^2 = 1.
Note that the logarithm of the e.g.f. is an odd function:
Log(A(x)) = 3*x + 9*x^3/3! + 1095*x^5/5! + 119469*x^7/7! + 28399275*x^9/9! + 11494484529*x^11/11! + 6432743099055*x^13/13! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245153, A245155, A245139, A245165.

Programs

  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff((cosh(3*X) + sinh(3*X)*cosh(X)) / sqrt(1 - sinh(X)^2*sinh(3*X)^2), n)}
for(n=0, 30, print1(a(n), ", "))

Formula

E.g.f.: G(x) * (cosh(x) - sinh(x)*cosh(3*x)) / sqrt(1 - sinh(x)^2*sinh(3*x)^2), where G(x) is the e.g.f. of A245155.
a(n) ~ 2*sqrt(2) * n^n / (5^(1/4) * exp(n) * (log((1+sqrt(5))/2))^(n+1/2)). - Vaclav Kotesovec, Nov 04 2014

A245165 E.g.f.: (cosh(3*x) + sinh(3*x)*cosh(2*x)) / sqrt(1 - sinh(2*x)^2*sinh(3*x)^2).

Original entry on oeis.org

1, 3, 9, 63, 513, 8043, 115209, 2170983, 42235713, 1075192083, 27302385609, 837303386703, 25799446123713, 938330441750523, 34249273199668809, 1436790115786367223, 60444494320614768513, 2873965406506938435363, 137038195324637653852809, 7283819678458854655944543
Offset: 0

Views

Author

Paul D. Hanna, Jul 12 2014

Keywords

Comments

Limit (a(n)/n!)^(-1/n) = log(t) = 0.3570506972213... where t satisfies 1 + t^2 + t^3 = t^5.

Examples

			E.g.f.: A(x) = 1 + 3*x + 9*x^2/2! + 63*x^3/3! + 513*x^4/4! + 8043*x^5/5! +...
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + 9*x^2/2! + 513*x^4/4! + 115209*x^6/6! + 42235713*x^8/8! +...
A1(x) = 3*x + 63*x^3/3! + 8043*x^5/5! + 2170983*x^7/7! + 1075192083*x^9/9! +...
then A0(x)^2 - A1(x)^2 = 1.
Note that the logarithm of the e.g.f. is an odd function:
Log(A(x)) = 3*x + 36*x^3/3! + 4560*x^5/5! + 932736*x^7/7! + 433555200*x^9/9! + 300576731136*x^11/11! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245164, A245166, A245139, A245154.

Programs

  • Mathematica
    With[{nn=20},CoefficientList[Series[(Cosh[3x]+Sinh[3x]Cosh[2x])/Sqrt[1-Sinh[ 2x]^2 Sinh[3x]^2],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Apr 27 2021 *)
  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff((cosh(3*X) + sinh(3*X)*cosh(2*X)) / sqrt(1 - sinh(2*X)^2*sinh(3*X)^2), n)}
for(n=0, 30, print1(a(n), ", "))

Formula

E.g.f.: G(x) * (cosh(2*x) - sinh(2*x)*cosh(3*x)) / sqrt(1 - sinh(2*x)^2*sinh(3*x)^2), where G(x) is the e.g.f. of A245166.
Showing 1-4 of 4 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.