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-20 of 56 results. Next

A199051 Decimal expansion of x>0 satisfying x^2+2*sin(x)=3.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -2.159478296974116018268923878524689009...
positive:  1.1024409927824745029005123269585791156...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 2; c = 3;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2.2, -2.1}, WorkingPrecision -> 110]
RealDigits[r] (* A199050 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.1, 1.2}, WorkingPrecision -> 110]
RealDigits[r](* A199051 *)

A199052 Decimal expansion of least x satisfying x^2+3*sin(x)=-1.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			least: -1.39840306895670428191362107010033086...
greatest:  -0.3958092344691378375825479943405218925...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = -1;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -1.4, -1.3}, WorkingPrecision -> 110]
RealDigits[r] (* A199052 *)
r = x /. FindRoot[f[x] == g[x], {x, -.4, -.3}, WorkingPrecision -> 110]
RealDigits[r] (* A199053 *)

Extensions

a(92) onwards corrected by Georg Fischer, Aug 01 2021

A199053 Decimal expansion of greatest x satisfying x^2+3*sin(x)=-1.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			least: -1.39840306895670428191362107010033086...
greatest:  -0.3958092344691378375825479943405218925...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = -1;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -1.4, -1.3}, WorkingPrecision -> 110]
RealDigits[r] (* A199052 *)
r = x /. FindRoot[f[x] == g[x], {x, -.4, -.3}, WorkingPrecision -> 110]
RealDigits[r] (* A199053 *)

A199054 Decimal expansion of x<0 satisfying x^2+3*sin(x)=1.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -1.946877744670682908335473546697723...
positive:  0.306755354137753007011651634733360...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = 1;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2, -1.9}, WorkingPrecision -> 110]
RealDigits[r] (* A199054 *)
r = x /. FindRoot[f[x] == g[x], {x, .3, .31}, WorkingPrecision -> 110]
RealDigits[r] (* A199055 *)

A199055 Decimal expansion of x>0 satisfying x^2+3*sin(x)=1.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -1.946877744670682908335473546697723...
positive:  0.30675535413775300701165163473336014...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = 1;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2, -1.9}, WorkingPrecision -> 110]
RealDigits[r] (* A199054 *)
r = x /. FindRoot[f[x] == g[x], {x, .3, .31}, WorkingPrecision -> 110]
RealDigits[r] (* A199055 *)

A199056 Decimal expansion of x<0 satisfying x^2+3*sin(x)=2.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -2.131047764056355710001133695358553...
positive:  0.58532056434199307654267468696737728...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = 2;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2.2, -2.1}, WorkingPrecision -> 110]
RealDigits[r]    (* A199056 *)
r = x /. FindRoot[f[x] == g[x], {x, .58, .59}, WorkingPrecision -> 110]
RealDigits[r]    (* A199057 *)

A199057 Decimal expansion of x>0 satisfying x^2+3*sin(x)=2.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -2.131047764056355710001133695358553...
positive:  0.58532056434199307654267468696737728...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = 2;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2.2, -2.1}, WorkingPrecision -> 110]
RealDigits[r]    (* A199056 *)
r = x /. FindRoot[f[x] == g[x], {x, .58, .59}, WorkingPrecision -> 110]
RealDigits[r]    (* A199057 *)

A199058 Decimal expansion of x<0 satisfying x^2+3*sin(x)=3.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -2.2919650412674286490951331183944433...
positive:  0.8564305559075611794636325387524829760...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = 3;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2.3, -2.2}, WorkingPrecision -> 110]
RealDigits[r]  (* A199058 *)
r = x /. FindRoot[f[x] == g[x], {x, .85, .86}, WorkingPrecision -> 110]
RealDigits[r] (* A199059 *)

Extensions

a(98) onwards corrected by Georg Fischer, Aug 01 2021

A199059 Decimal expansion of x > 0 satisfying x^2+3*sin(x) = 3.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 02 2011

Keywords

Comments

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

Examples

			negative: -2.2919650412674286490951331183944433...
positive:  0.8564305559075611794636325387524829760...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 1; b = 3; c = 3;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -2.3, -2.2}, WorkingPrecision -> 110]
RealDigits[r]  (* A199058 *)
r = x /. FindRoot[f[x] == g[x], {x, .85, .86}, WorkingPrecision -> 110]
RealDigits[r] (* A199059 *)

Extensions

a(97), a(98) corrected by Georg Fischer, Aug 01 2021

A199060 Decimal expansion of x<0 satisfying 3*x^2+sin(x)=1.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 03 2011

Keywords

Comments

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

Examples

			negative: -0.74844244701581115464359646501040627441...
positive:  0.438095897421340452730722590365445642407...

Links

Crossrefs

Cf. A198866.

Programs

  • Mathematica
    a = 3; b = 1; c = 1;
f[x_] := a*x^2 + b*Sin[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.75, -.74}, WorkingPrecision -> 110]
RealDigits[r](* A199060 *)
r = x /. FindRoot[f[x] == g[x], {x, .43, .44}, WorkingPrecision -> 110]
RealDigits[r](* A199077 *)
Previous Showing 11-20 of 56 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.