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.

A201939 Decimal expansion of x>0 satisfying x*cosh(x)=2.

Original entry on oeis.org

1, 1, 5, 0, 5, 8, 4, 9, 6, 7, 4, 1, 8, 6, 6, 3, 9, 4, 9, 5, 3, 4, 9, 3, 3, 7, 3, 3, 6, 1, 3, 7, 8, 8, 1, 9, 5, 7, 6, 6, 8, 3, 7, 4, 9, 4, 8, 4, 4, 2, 4, 2, 3, 4, 1, 1, 8, 3, 3, 9, 2, 5, 1, 8, 0, 8, 8, 3, 2, 2, 5, 4, 6, 1, 7, 6, 4, 1, 1, 7, 2, 8, 0, 1, 3, 6, 7, 5, 4, 4, 1, 4, 5, 2, 4, 6, 9, 9, 5
Offset: 1

Views

Author

Clark Kimberling, Dec 15 2011

Keywords

Comments

For many choices of u and v, there is exactly one x>0 satisfying x*cosh(u*x)=v. Guide to related sequences, with graphs included in Mathematica programs:
u.... v.... x
1.... 1.... A069814
1.... 2.... A201939
1.... 3.... A201943
2.... 1.... A201944
3.... 1.... A201945
2.... 2.... A202283
Suppose that f(x,u,v) is a function of three real variables and that g(u,v) is a function defined implicitly by f(g(u,v),u,v)=0. We call the graph of z=g(u,v) an implicit surface of f.
For an example related to A201939, take f(x,u,v)=x*cosh(u*x)-v and g(u,v) = a nonzero solution x of f(x,u,v)=0. If there is more than one nonzero solution, care must be taken to ensure that the resulting function g(u,v) is single-valued and continuous. A portion of an implicit surface is plotted by Program 2 in the Mathematica section.

Examples

			1.15058496741866394953493373361378819576...

Links

Crossrefs

Cf. A201946.

Programs

  • Mathematica
    (* Program 1:  A201939 *)
u = 1; v = 2;
f[x_] := x*Cosh[u*x]; g[x_] := v
Plot[{f[x], g[x]}, {x, 0, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, 1.1, 1.2}, WorkingPrecision -> 110]
RealDigits[r]  (* A201939 *)
(* Program 2: implicit surface of u*cosh(x)=v *)
f[{x_, u_, v_}] := x*Cosh[u*x] - v;
t = Table[{u, v, x /. FindRoot[f[{x, u, v}] == 0, {x, 0, .2}]}, {v, 0, 20}, {u, 1, 9}];
ListPlot3D[Flatten[t, 1]] (* for A201939 *)

A202243 Decimal expansion of x>0 satisfying x*sinh(x)=3.

Original entry on oeis.org

1, 4, 6, 4, 8, 7, 7, 3, 3, 4, 3, 6, 3, 4, 5, 4, 1, 2, 5, 7, 8, 9, 2, 9, 0, 0, 0, 3, 7, 5, 5, 1, 0, 6, 3, 7, 7, 6, 2, 9, 4, 9, 4, 9, 3, 8, 1, 6, 9, 4, 9, 0, 1, 0, 6, 0, 4, 9, 2, 4, 5, 6, 5, 7, 0, 1, 3, 3, 8, 5, 3, 6, 5, 9, 9, 6, 5, 3, 8, 4, 3, 1, 0, 3, 8, 5, 6, 8, 4, 1, 2, 7, 1, 5, 3, 3, 4, 9, 2
Offset: 1

Views

Author

Clark Kimberling, Dec 15 2011

Keywords

Comments

See A201939 for a guide to related sequences. The Mathematica program includes a graph.

Examples

			x=1.46487733436345412578929000375510637762949493...

Crossrefs

Cf. A201946.

Programs

  • Mathematica
    u = 1; v = 3;
f[x_] := x*Sinh[u*x]; g[x_] := v
Plot[{f[x], g[x]}, {x, 0, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, 1.4, 1.5}, WorkingPrecision -> 110]
RealDigits[r]   (* A202243 *)

A202244 Decimal expansion of x>0 satisfying x*sinh(2x)=1.

Original entry on oeis.org

6, 2, 4, 6, 9, 7, 1, 6, 8, 3, 2, 3, 1, 6, 2, 2, 3, 6, 2, 5, 5, 6, 3, 7, 1, 6, 0, 6, 3, 0, 5, 0, 4, 0, 6, 1, 7, 3, 4, 7, 2, 0, 6, 5, 0, 4, 5, 0, 7, 6, 4, 8, 4, 8, 1, 4, 8, 6, 3, 0, 3, 8, 4, 3, 4, 4, 1, 0, 6, 1, 9, 8, 6, 5, 5, 3, 1, 1, 4, 9, 1, 5, 0, 2, 6, 6, 2, 8, 8, 5, 4, 1, 4, 3, 2, 6, 9, 5, 9
Offset: 0

Views

Author

Clark Kimberling, Dec 15 2011

Keywords

Comments

See A201939 for a guide to related sequences. The Mathematica program includes a graph.

Examples

			x=0.62469716832316223625563716063050406173...

Crossrefs

Cf. A201946.

Programs

  • Mathematica
    u = 2; v = 1;
f[x_] := x*Sinh[u*x]; g[x_] := v
Plot[{f[x], g[x]}, {x, 0, 1}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .6, .7}, WorkingPrecision -> 110]
RealDigits[r]   (* A202244 *)

A202245 Decimal expansion of x>0 satisfying x*sinh(3x)=1.

Original entry on oeis.org

4, 8, 8, 2, 9, 2, 4, 4, 4, 7, 8, 7, 8, 1, 8, 0, 4, 1, 9, 2, 9, 7, 6, 3, 3, 3, 4, 5, 8, 5, 0, 3, 5, 4, 5, 9, 2, 0, 9, 8, 3, 1, 6, 4, 6, 0, 5, 6, 4, 9, 6, 7, 0, 2, 0, 1, 6, 4, 1, 5, 2, 1, 9, 0, 0, 4, 4, 6, 1, 7, 8, 8, 6, 6, 5, 5, 1, 2, 8, 1, 0, 3, 4, 6, 1, 8, 9, 4, 7, 0, 9, 0, 5, 1, 1, 1, 6, 4, 2
Offset: 0

Views

Author

Clark Kimberling, Dec 15 2011

Keywords

Comments

See A201939 for a guide to related sequences. The Mathematica program includes a graph.

Examples

			x=0.48829244478781804192976333458503545920...

Crossrefs

Cf. A201946.

Programs

  • Mathematica
    u = 3; v = 1;
f[x_] := x*Sinh[u*x]; g[x_] := v
Plot[{f[x], g[x]}, {x, 0, 1}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .4, .5}, WorkingPrecision -> 110]
RealDigits[r]   (* A202245 *)

A202284 Decimal expansion of x>0 satisfying x*sinh(2x)=2.

Original entry on oeis.org

8, 1, 5, 0, 0, 1, 8, 2, 3, 8, 6, 6, 9, 8, 1, 3, 6, 5, 0, 0, 6, 4, 6, 4, 7, 4, 5, 0, 7, 7, 4, 9, 8, 3, 9, 4, 1, 6, 7, 6, 1, 2, 4, 8, 4, 4, 2, 0, 6, 6, 0, 5, 4, 6, 3, 0, 0, 8, 7, 3, 6, 7, 2, 0, 5, 4, 7, 8, 4, 4, 8, 3, 9, 3, 9, 3, 2, 5, 1, 1, 3, 0, 3, 2, 4, 5, 4, 4, 0, 1, 7, 0, 5, 3, 0, 7, 1, 7, 6
Offset: 0

Views

Author

Clark Kimberling, Dec 15 2011

Keywords

Comments

See A201939 for a guide to related sequences. The Mathematica program includes a graph.

Examples

			x=0.81500182386698136500646474507749839416761248...

Crossrefs

Cf. A201946.

Programs

  • Mathematica
    u = 2; v = 2;
f[x_] := x*Sinh[u*x]; g[x_] := v
Plot[{f[x], g[x]}, {x, 0, 1}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .8, .9}, WorkingPrecision -> 110]
RealDigits[r]   (* A202284 *)
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.