A198866 -id:A198866 - cp's OEIS frontend

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

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

Offset: 1

Clark Kimberling, Nov 02 2011

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

			negative: -1.40710663976303990599616688903595712850...
positive:  0.28352555144412274861845117327862135032...

Index entries for transcendental numbers.

Cf. A198866.

a = 2; b = 3; 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, -1.5, -1.4}, WorkingPrecision -> 110]
RealDigits[r] (* A199071 *)
r = x /. FindRoot[f[x] == g[x], {x, .28, .29}, WorkingPrecision -> 110]
RealDigits[r] (* A199072 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 02 2011

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

			negative: -1.40710663976303990599616688903595712850...
positive:  0.28352555144412274861845117327862135032...

Index entries for transcendental numbers.

Cf. A198866.

a = 2; b = 3; 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, -1.5, -1.4}, WorkingPrecision -> 110]
RealDigits[r] (* A199071 *)
r = x /. FindRoot[f[x] == g[x], {x, .28, .29}, WorkingPrecision -> 110]
RealDigits[r] (* A199072 *)

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 03 2011

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

			negative: -1.5811135842680126236235133011318966...
positive:  0.5132747777025682345171850420249902...

Index entries for transcendental numbers.

Cf. A198866.

a = 2; b = 3; c = 2;
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, -1.6, -1.5}, WorkingPrecision -> 110]
RealDigits[r](* A199073 *)
r = x /. FindRoot[f[x] == g[x], {x, .51, .52}, WorkingPrecision -> 110]
RealDigits[r](* A199074 *)

solve(x=1,2, 2*x^2-3*sin(x)-2) \\ Charles R Greathouse IV, Dec 06 2016

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -1.5811135842680126236235133011318966...
positive:  0.5132747777025682345171850420249902...

Index entries for transcendental numbers.

Cf. A198866.

a = 2; b = 3; c = 2;
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, -1.6, -1.5}, WorkingPrecision -> 110]
RealDigits[r](* A199073 *)
r = x /. FindRoot[f[x] == g[x], {x, .51, .52}, WorkingPrecision -> 110]
RealDigits[r](* A199074 *)

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 03 2011

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

			negative: -1.72678532237109319694171416856349946617...
positive:  0.71708638918192182669700429533330771873...

Index entries for transcendental numbers.

Cf. A198866.

a = 2; b = 3; c = 3;
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, -1.8, -1.7}, WorkingPrecision -> 110]
RealDigits[r] (* A199075 *)
r = x /. FindRoot[f[x] == g[x], {x, .71, .72}, WorkingPrecision -> 110]
RealDigits[r] (* A199076 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -1.72678532237109319694171416856349946617...
positive:  0.71708638918192182669700429533330771873...

Index entries for transcendental numbers.

Cf. A198866.

a = 2; b = 3; c = 3;
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, -1.8, -1.7}, WorkingPrecision -> 110]
RealDigits[r](* A199075 *)
r = x /. FindRoot[f[x] == g[x], {x, .71, .72}, WorkingPrecision -> 110]
RealDigits[r](* A199076 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

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

Index entries for transcendental numbers.

Cf. A198866.

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 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -0.97041584163559044784359265743084410...
positive:  0.676701594073077874194855720384016697...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; b = 1; c = 2;
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, -.98, -.97}, WorkingPrecision -> 110]
RealDigits[r]   (* A199078 *)
r = x /. FindRoot[f[x] == g[x], {x, .67, .68}, WorkingPrecision -> 110]
RealDigits[r]   (* A199079 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -0.97041584163559044784359265743084410...
positive:  0.676701594073077874194855720384016697...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; b = 1; c = 2;
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, -.98, -.97}, WorkingPrecision -> 110]
RealDigits[r]   (* A199078 *)
r = x /. FindRoot[f[x] == g[x], {x, .67, .68}, WorkingPrecision -> 110]
RealDigits[r]   (* A199079 *)

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 02 2011

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

			negative: -1.7251712054289301271344240020632...
positive:  0.42302818188516042885129332473260...

G. C. Greubel, Table of n, a(n) for n = 1..10000
Index entries for transcendental numbers.

Cf. A198866, A199081.

a = 1; b = 2; 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, -1.8, -1.7}, WorkingPrecision -> 110]
RealDigits[r]   (* this sequence *)
r = x /. FindRoot[f[x] == g[x], {x, .42, .43}, WorkingPrecision -> 110]
RealDigits[r]   (* A199081 *)

a=1; b=2; c=1; solve(x=-2, 0, a*x^2 + b*sin(x) - c) \\ G. C. Greubel, Feb 20 2019

a=1; b=2; c=1; (a*x^2 + b*sin(x)==c).find_root(-2,0,x) # G. C. Greubel, Feb 20 2019

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

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

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

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

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

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

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