A198866 -id:A198866 - cp's OEIS frontend

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

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -1.280117027823592900045689845558554979655...
positive:  0.741456706769858920159460956349108949987...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; b = 2; 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.29, -1.28}, WorkingPrecision -> 110]
RealDigits[r]   (* A199156 *)
r = x /. FindRoot[f[x] == g[x], {x, .74, .75}, WorkingPrecision -> 110]
RealDigits[r]  (* A199157 *)

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 03 2011

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

			negative: -1.1082694473937105467280082158614997423379...
positive:  0.2658016271983479815831296920342773310942...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; 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.2, -1.1}, WorkingPrecision -> 110]
RealDigits[r]   (* A199158 *)
r = x /. FindRoot[f[x] == g[x], {x, .26, .27}, WorkingPrecision -> 110]
RealDigits[r]   (* A199159 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -1.1082694473937105467280082158614997423379...
positive:  0.2658016271983479815831296920342773310942...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; 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.2, -1.1}, WorkingPrecision -> 110]
RealDigits[r]   (* A199158 *)
r = x /. FindRoot[f[x] == g[x], {x, .26, .27}, WorkingPrecision -> 110]
RealDigits[r]   (* A199159 *)

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 03 2011

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

			negative: -1.27394191941158332703408474342055643506123...
positive:  0.466106421683196411148081035304500630437462...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; 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.3, -1.2}, WorkingPrecision -> 110]
RealDigits[r]  (* A199160 *)
r = x /. FindRoot[f[x] == g[x], {x, .46, .47}, WorkingPrecision -> 110]
RealDigits[r]  (* A199161 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 03 2011

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

			negative: -1.27394191941158332703408474342055643506123...
positive:  0.466106421683196411148081035304500630437462...

Index entries for transcendental numbers.

Cf. A198866.

a = 3; 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.3, -1.2}, WorkingPrecision -> 110]
RealDigits[r]  (* A199160 *)
r = x /. FindRoot[f[x] == g[x], {x, .46, .47}, WorkingPrecision -> 110]
RealDigits[r]  (* A199161 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 02 2011

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

			negative: -1.40962400400259624923559397058949354...
positive:  0.63673265080528201088799090383828005...

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

Cf. A198866.

a = 1; 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, -1.41, -1.40}, WorkingPrecision -> 110]
RealDigits[r] (* A198866 *)
r = x /. FindRoot[f[x] == g[x], {x, .63, .64}, WorkingPrecision -> 110]
RealDigits[r] (* A198867 *)

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

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Sage

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

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

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

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

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