A199170 -id:A199170 - cp's OEIS frontend

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

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

Offset: 1

Clark Kimberling, Nov 04 2011

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

			negative: -1.11270716122321939210526043888351330910...
positive:  0.289505448385867415592179483198982452381...

Index entries for transcendental numbers.

Cf. A199170.

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

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 04 2011

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

			negative: -1.11270716122321939210526043888351330910...
positive:  0.289505448385867415592179483198982452381...

Index entries for transcendental numbers.

Cf. A199170.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 04 2011

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

			negative: -1.25750748269679781262452282006866921022...
positive:  0.547005740546889576436923247150755725087...

Index entries for transcendental numbers.

Cf. A199170.

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

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 04 2011

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

			negative: -1.25750748269679781262452282006866921022...
positive:  0.547005740546889576436923247150755725087...

Index entries for transcendental numbers.

Cf. A199170.

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

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

Original entry on oeis.org

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

Offset: 1

Clark Kimberling, Nov 04 2011

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

			negative: -1.3773686718388251570629963805293335...
positive:  0.8134750235542935510898993411693045...

Index entries for transcendental numbers.

Cf. A199170.

a = 2; b = 3; c = 3;
f[x_] := a*x^2 + b*x*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -1.4, -1.3}, WorkingPrecision -> 110]
RealDigits[r]    (* A199277 *)
r = x /. FindRoot[f[x] == g[x], {x, .81, .82}, WorkingPrecision -> 110]
RealDigits[r]   (* A199278 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 04 2011

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

			negative: -1.3773686718388251570629963805293335...
positive:  0.8134750235542935510898993411693045...

Index entries for transcendental numbers.

Cf. A199170.

a = 2; b = 3; c = 3;
f[x_] := a*x^2 + b*x*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -3, 3}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -1.4, -1.3}, WorkingPrecision -> 110]
RealDigits[r]    (* A199277 *)
r = x /. FindRoot[f[x] == g[x], {x, .81, .82}, WorkingPrecision -> 110]
RealDigits[r]   (* A199278 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 04 2011

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

			negative: -0.7165503839061782023923880301835513...
positive:  0.4462598117717659562961701211990923...

Index entries for transcendental numbers.

Cf. A199170.

Remove["Global`*"];
a = 3; b = 1; c = 1;
f[x_] := a*x^2 + b*x*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -1, 1}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.8, -.7}, WorkingPrecision -> 110]
RealDigits[r]    (* A199279 *)
r = x /. FindRoot[f[x] == g[x], {x, .44, .45}, WorkingPrecision -> 110]
RealDigits[r]    (* A199280 *)

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

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 04 2011

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

			negative: -0.7165503839061782023923880301835513...
positive:  0.4462598117717659562961701211990923...

Index entries for transcendental numbers.

Cf. A199170.

Remove["Global`*"];
a = 3; b = 1; c = 1;
f[x_] := a*x^2 + b*x*Cos[x]; g[x_] := c
Plot[{f[x], g[x]}, {x, -1, 1}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, -.8, -.7}, WorkingPrecision -> 110]
RealDigits[r]    (* A199279 *)
r = x /. FindRoot[f[x] == g[x], {x, .44, .45}, WorkingPrecision -> 110]
RealDigits[r]    (* A199280 *)

A199281 Decimal expansion of x<0 satisfying 3x^2+xcos(x)=2.

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 05 2011

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

			negative: -0.923207967022272918085370562946372...
positive:  0.6988053514945826378907251192096740...

Index entries for transcendental numbers.

Cf. A199170.

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

A199282 Decimal expansion of x>0 satisfying 3x^2+xcos(x)=2.

Original entry on oeis.org

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

Offset: 0

Clark Kimberling, Nov 05 2011

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

			negative: -0.923207967022272918085370562946372...
positive:  0.6988053514945826378907251192096740...

Index entries for transcendental numbers.

Cf. A199170.

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

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

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

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

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

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

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

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

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

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

A199281 Decimal expansion of x<0 satisfying 3x^2+xcos(x)=2.

A199282 Decimal expansion of x>0 satisfying 3x^2+xcos(x)=2.