A198755 -id:A198755 - cp's OEIS frontend

A198869 Decimal expansion of x>0 satisfying 2x^2+2cos(x)=3.

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

Offset: 0

Clark Kimberling, Oct 31 2011

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

			0.96442044685110339926035690912472720651433...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = 2; c = 3;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .94, .95}, WorkingPrecision -> 110]
RealDigits[r] (* A198869 *)

A198870 Decimal expansion of x>0 satisfying 2x^2+3cos(x)=4.

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Oct 31 2011

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

			1.216238809466393290599625767029343291154470...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = 3; c = 4;
f[x_] := a*x^2 + b*Cos[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.3}, WorkingPrecision -> 110]
RealDigits[r] (* A198870 *)

A198871 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=1.

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Oct 31 2011

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

			0.90036722258974714607307739352536365464027300...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -1; c = 1;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .9, .91}, WorkingPrecision -> 110]
RealDigits[r] (* A198871 *)

A198872 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=2.

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Oct 31 2011

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

			x=1.1063325550299359152547560957295167526352...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -1; c = 2;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, 1, 1.1}, WorkingPrecision -> 110]
RealDigits[r] (* A198872 *)

A198873 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=3.

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Oct 31 2011

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

			1.28163038615996211042990667962001943164972109...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -1; c = 3;
f[x_] := a*x^2 + b*Cos[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.3}, WorkingPrecision -> 110]
RealDigits[r]  (* A198873 *)

A198874 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=4.

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Oct 31 2011

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

			1.437513268413420304257234147095927537423880...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -1; c = 4;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, 1.4, 1.5}, WorkingPrecision -> 110]
RealDigits[r] (* A198874 *)

A198875 Decimal expansion of x>0 satisfying 2x^2-2cos(x)=-1.

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Oct 31 2011

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

			0.580036678647097694548367916190637248242237...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -2; c = -1;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .58, .59}, WorkingPrecision -> 110]
RealDigits[r] (* A198875 *)

A198876 Decimal expansion of x>0 satisfying 2x^2-2cos(x)=3.

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Oct 31 2011

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

			1.321599620876718222137733492817504244992561534...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -2; c = 3;
f[x_] := a*x^2 + b*Cos[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.4}, WorkingPrecision -> 110]
RealDigits[r] (* A198876 *)

A198877 Decimal expansion of x>0 satisfying 2x^2-3cos(x)=-2.

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Oct 31 2011

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

			0.537272474772124645372051508512530242286...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -3; c = -2;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .53, .54}, WorkingPrecision -> 110]
RealDigits[r] (* A198877 *)

A198878 Decimal expansion of x>0 satisfying 2x^2-3cos(x)=-1.

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Oct 31 2011

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

			0.76377227490111905011055988592828314549736...

Index entries for transcendental numbers.

Cf. A198755.

a = 2; b = -3; c = -1;
f[x_] := a*x^2 + b*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .76, .77}, WorkingPrecision -> 110]
RealDigits[r] (* A198878 *)

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198870 Decimal expansion of x>0 satisfying 2*x^2+3*cos(x)=4.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198871 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198872 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198873 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198874 Decimal expansion of x>0 satisfying 2*x^2-cos(x)=4.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198875 Decimal expansion of x>0 satisfying 2*x^2-2*cos(x)=-1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A198876 Decimal expansion of x>0 satisfying 2*x^2-2*cos(x)=3.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

A198869 Decimal expansion of x>0 satisfying 2x^2+2cos(x)=3.

A198870 Decimal expansion of x>0 satisfying 2x^2+3cos(x)=4.

A198875 Decimal expansion of x>0 satisfying 2x^2-2cos(x)=-1.

A198876 Decimal expansion of x>0 satisfying 2x^2-2cos(x)=3.

A198877 Decimal expansion of x>0 satisfying 2x^2-3cos(x)=-2.

A198878 Decimal expansion of x>0 satisfying 2x^2-3cos(x)=-1.