A199429 -id:A199429 - cp's OEIS frontend

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

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

Offset: 1

Clark Kimberling, Nov 07 2011

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

			2.18598599678622737334543359635770015733...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 07 2011

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

			2.10283686091410470147276851182470222999...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 07 2011

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

			2.031257640333073135837764766211201518805142...

Index entries for transcendental numbers.

Cf. A199429.

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

A199471 Decimal expansion of x>0 satisfying 2x^2-xsin(x)=cos(x).

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 07 2011

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

			0.796430416796343079696359002296588118021270...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 07 2011

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

			0.981694709786936679994072242988211165413377767840...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 07 2011

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

			1.086027211843730407845669734772027209316126500...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 07 2011

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

			1.09770607306519042940162895829193901300597891048...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 07 2011

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

			1.286685644812683721546821396120267976910...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 07 2011

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

			0.6264701491613591865702442707087042870584...

Index entries for transcendental numbers.

Cf. A199429.

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

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 07 2011

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

			0.809476415875062266835317913845989194004148255...

Index entries for transcendental numbers.

Cf. A199429.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

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

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

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

A199471 Decimal expansion of x>0 satisfying 2x^2-xsin(x)=cos(x).

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

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

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

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

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

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