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.

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

Original entry on oeis.org

1, 5, 25, 215, 2425, 33875, 569125, 11160035, 250047025, 6302723075, 176522216125, 5438291613155, 182773714292425, 6654680279353475, 260930805319957525, 10961922511422743075, 491220886240696086625, 23388149451193115459075, 1179066988050425638569325
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 + 5*x + 25*x^2/2! + 215*x^3/3! + 2425*x^4/4! + 33875*x^5/5! +...
such that A(x) = B(x)*C(x), where
B(x) = 1 + 2*x + 4*x^2/2! + 62*x^3/3! + 448*x^4/4! + 5882*x^5/5! +...
C(x) = 1 + 3*x + 9*x^2/2! + 63*x^3/3! + 513*x^4/4! + 8043*x^5/5! +...
are the e.g.f.s of A245164 and A245165, respectively.
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + 25*x^2/2! + 2425*x^4/4! + 569125*x^6/6! + 250047025*x^8/8! +...
A1(x) = 5*x + 215*x^3/3! + 33875*x^5/5! + 11160035*x^7/7! + 6302723075*x^9/9! +...
then A0(x)^2 - A1(x)^2 = 1.
Note that the logarithm is an odd function:
log(A(x)) = 5*x + 90*x^3/3! + 8250*x^5/5! + 1946910*x^7/7! + 855018450*x^9/9! + 603621345030*x^11/11! + 624997732481850*x^13/13! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245164, A245165, A245140, A245155.
Cf. A322620, A322190.

Programs

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

Formula

E.g.f.: (cosh(2*x) + sinh(2*x)*cosh(3*x)) * (cosh(3*x) + sinh(3*x)*cosh(2*x)) / (1 - sinh(2*x)^2*sinh(3*x)^2).
E.g.f.: (cosh(2*x)*cosh(3*x) + sinh(2*x) + sinh(3*x)) / (1 - sinh(2*x)*sinh(3*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 A245164 and A245165, 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(2*x) = (A0(x) + A1(x)*cosh(3*x)) * (cosh(3*x) - sinh(3*x)*A0(x)) / (1 - sinh(3*x)^2*A1(x)^2).
(3) exp(3*x) = (A0(x) + A1(x)*cosh(2*x)) * (cosh(2*x) - sinh(2*x)*A0(x)) / (1 - sinh(2*x)^2*A1(x)^2).
From Paul D. Hanna, Dec 22 2018: (Start)
(4) exp(2*x) = (A0(x)*cosh(3*x) + A1(x) - sinh(3*x)) / (1 + sinh(3*x)*A1(x)).
(5) exp(3*x) = (A0(x)*cosh(2*x) + A1(x) - sinh(2*x)) / (1 + sinh(2*x)*A1(x)). (End)
FORMULAS FOR TERMS.
a(n) == 0 (mod 5) for n>0.
From Paul D. Hanna, Dec 22 2018: (Start)
a(n) = Sum_{k=0..n} 2^(n-k) * 3^k * A322620(n,k).
a(n) = Sum_{k=0..n} 2^(n-k) * 3^k * binomial(n,k) * A322190(n,k). (End)

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

Original entry on oeis.org

1, 2, 4, 14, 64, 602, 5344, 58214, 661504, 9666482, 145897984, 2611988414, 47548524544, 1002692887562, 21581168410624, 527328466446614, 13084553110749184, 362312592419199842, 10175324275879051264, 315223836841156264814, 9889646730551557095424, 338833067799589889659322
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 + 2*x + 4*x^2/2! + 14*x^3/3! + 64*x^4/4! + 602*x^5/5! +...
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + 4*x^2/2! + 64*x^4/4! + 5344*x^6/6! + 661504*x^8/8! +...
A1(x) = 2*x + 14*x^3/3! + 602*x^5/5! + 58214*x^7/7! + 9666482*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)) = 2*x + 6*x^3/3! + 330*x^5/5! + 21966*x^7/7! + 3507090*x^9/9! + 844747926*x^11/11! + 299180549850*x^13/13! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245138, A245140, A245154, A245165.

Programs

  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff((cosh(2*X) + sinh(2*X)*cosh(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(x) - sinh(x)*cosh(2*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

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

Original entry on oeis.org

1, 2, 4, 62, 448, 5882, 82144, 1762742, 32401408, 839773682, 20709251584, 658128799022, 19691428538368, 735018387765482, 26206768383361024, 1124046915311796902, 46319665594721763328, 2246606049886763789282, 105187723831561379774464, 5688928855528010885284382
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 + 2*x + 4*x^2/2! + 62*x^3/3! + 448*x^4/4! + 5882*x^5/5! +...
Let A(x) = A0(x) + A1(x) where
A0(x) = 1 + 4*x^2/2! + 448*x^4/4! + 82144*x^6/6! + 32401408*x^8/8! +...
A1(x) = 2*x + 62*x^3/3! + 5882*x^5/5! + 1762742*x^7/7! + 839773682*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)) = 2*x + 54*x^3/3! + 3690*x^5/5! + 1014174*x^7/7! + 421463250*x^9/9! + 303044613894*x^11/11! + 312200620305210*x^13/13! +...
thus A(x)*A(-x) = 1.

Crossrefs

Cf. A245165, A245166, A245138, A245153.

Programs

  • Mathematica
    With[{nn=20},CoefficientList[Series[(Cosh[2x]+Sinh[2x]Cosh[3x])/Sqrt[1- Sinh[ 2x]^2 Sinh[3x]^2],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Apr 01 2016 *)
  • PARI
    {a(n)=local(X=x+x^2*O(x^n)); n!*polcoeff((cosh(2*X) + sinh(2*X)*cosh(3*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(3*x) - sinh(3*x)*cosh(2*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.