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 71-80 of 136 results. Next

A200118 Decimal expansion of least x satisfying 2*x^2 - 2*cos(x) = 3*sin(x), negated.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.46682360757098679958413415443158404...
greatest x: 1.3071909920738130664046341866545604...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -2; c = 3;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.47, -.48}, WorkingPrecision -> 110]
RealDigits[r]  (* A200118 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.3, 1.31}, WorkingPrecision -> 110]
RealDigits[r]  (* A200119 *)
  • PARI
    a=2; b=-2; c=3; solve(x=-1, 0, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jun 29 2018

Extensions

Terms a(89) to a(96) corrected by G. C. Greubel, Jun 29 2018

A200119 Decimal expansion of greatest x satisfying 2*x^2 - 2*cos(x) = 3*sin(x).

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.46682360757098679958413415443158404...
greatest x: 1.3071909920738130664046341866545604...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -2; c = 3;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.47, -.48}, WorkingPrecision -> 110]
RealDigits[r]  (* A200118 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.3, 1.31}, WorkingPrecision -> 110]
RealDigits[r]  (* A200119 *)
  • PARI
    a=2; b=-2; c=3; solve(x=1, 2, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jun 29 2018

A200120 Decimal expansion of least x satisfying 2*x^2 - 3*cos(x) = sin(x), negated.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.815233223410514131205921200022220970300...
greatest x: 1.0743092065060468901083577789286306342...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 1;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.82, -.81}, WorkingPrecision -> 110]
RealDigits[r]  (* A200120 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.07, 1.08}, WorkingPrecision -> 110]
RealDigits[r]  (* A200121 *)
  • PARI
    a=2; b=-3; c=1; solve(x=-1, 0, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jun 29 2018

A200121 Decimal expansion of greatest x satisfying 2*x^2 - 3*cos(x) = sin(x).

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.815233223410514131205921200022220970300...
greatest x: 1.0743092065060468901083577789286306342...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 1;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.82, -.81}, WorkingPrecision -> 110]
RealDigits[r]  (* A200120 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.07, 1.08}, WorkingPrecision -> 110]
RealDigits[r]  (* A200121 *)
  • PARI
    a=2; b=-3; c=1; solve(x=1, 2, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jun 29 2018

A200122 Decimal expansion of least x satisfying 2*x^2 - 3*cos(x) = 2*sin(x), negated.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.70415945703712255268105833349948348210...
greatest x: 1.210301102156057859192844246759434780...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 2;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.71, -.70}, WorkingPrecision -> 110]
RealDigits[r]  (* A200122 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.2, 1.3}, WorkingPrecision -> 110]
RealDigits[r]  (* A200123 *)
  • PARI
    a=2; b=-3; c=2; solve(x=-1, 0, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jun 29 2018

A200123 Decimal expansion of greatest x satisfying 2*x^2 - 3*cos(x) = 2*sin(x).

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.70415945703712255268105833349948348210...
greatest x: 1.210301102156057859192844246759434780...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 2;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.71, -.70}, WorkingPrecision -> 110]
RealDigits[r]  (* A200122 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.2, 1.3}, WorkingPrecision -> 110]
RealDigits[r]  (* A200123 *)
  • PARI
    a=2; b=-3; c=2; solve(x=1, 2, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jun 29 2018

A200124 Decimal expansion of least x satisfying 2*x^2 - 3*cos(x) = 3*sin(x), negated.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.6094168332632752999307535993160...
greatest x: 1.34204053424075776611980105081...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 3;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.61, -.60}, WorkingPrecision -> 110]
RealDigits[r]  (* A200124 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.34, 1.35}, WorkingPrecision -> 110]
RealDigits[r]  (* A200125 *)
  • PARI
    a=2; b=-3; c=3; solve(x=-1, 0, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jul 01 2018

A200125 Decimal expansion of greatest x satisfying 2*x^2 - 3*cos(x) = 3*sin(x).

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.6094168332632752999307535993160...
greatest x: 1.34204053424075776611980105081...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 3;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.61, -.60}, WorkingPrecision -> 110]
RealDigits[r]  (* A200124 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.34, 1.35}, WorkingPrecision -> 110]
RealDigits[r]  (* A200125 *)
  • PARI
    a=2; b=-3; c=3; solve(x=1, 2, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jul 01 2018

A200126 Decimal expansion of least x satisfying 2*x^2 - 3*cos(x) = 4*sin(x), negated.

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.530633047496848880166804175671064100...
greatest x: 1.4652353861426318569459268305726949...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 4;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.54, -.53}, WorkingPrecision -> 110]
RealDigits[r]  (* A200126 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.46, 1.47}, WorkingPrecision -> 110]
RealDigits[r]  (* A200127 *)
  • PARI
    a=2; b=-3; c=4; solve(x=-1, 0, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jul 01 2018

A200127 Decimal expansion of greatest x satisfying 2*x^2 - 3*cos(x) = 4*sin(x).

Original entry on oeis.org

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

Views

Author

Clark Kimberling, Nov 14 2011

Keywords

Comments

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

Examples

			least x: -0.530633047496848880166804175671064100...
greatest x: 1.4652353861426318569459268305726949...

Links

Crossrefs

Cf. A199949.

Programs

  • Mathematica
    a = 2; b = -3; c = 4;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c*Sin[x]
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.54, -.53}, WorkingPrecision -> 110]
RealDigits[r]  (* A200126 *)
r = x /. FindRoot[f[x] == g[x], {x, 1.46, 1.47}, WorkingPrecision -> 110]
RealDigits[r]  (* A200127 *)
  • PARI
    a=2; b=-3; c=4; solve(x=1, 2, a*x^2 + b*cos(x) - c*sin(x)) \\ G. C. Greubel, Jul 01 2018
Previous Showing 71-80 of 136 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.