The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A198608 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A198608

Decimal expansion of -x where x<0 satisfies 2*x^2+3x=sin(x).
(history; published version)

#6 by Russ Cox at Fri Mar 30 18:57:54 EDT 2012

AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Oct 27 2011

Discussion

Fri Mar 30

18:57

OEIS Server: https://oeis.org/edit/global/285

#5 by N. J. A. Sloane at Thu Oct 27 22:22:20 EDT 2011

STATUS

editing

approved

#4 by N. J. A. Sloane at Thu Oct 27 22:22:17 EDT 2011

NAME

Decimal expansion of -x where x<0 having satisfies 2*x^2+3x=sin(x).

STATUS

proposed

editing

#3 by Clark Kimberling at Thu Oct 27 10:48:57 EDT 2011

STATUS

editing

proposed

#2 by Clark Kimberling at Thu Oct 27 10:36:33 EDT 2011

NAME

allocated for Clark KimberlingDecimal expansion of x<0 having 2*x^2+3x=sin(x).

DATA

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

OFFSET

1,3

COMMENTS

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

EXAMPLE

x=-1.0939227399054990890573458039521962276046...

MATHEMATICA

a = 2; b = 3; c = 1;

f[x_] := a*x^2 + b*x; g[x_] := c*Sin[x]

Plot[{f[x], g[x]}, {x, -2, .2}]

r = x /. FindRoot[f[x] == g[x], {x, -1.1, -1.0}, WorkingPrecision -> 110]

RealDigits[r](* A198608 *)

CROSSREFS

Cf. A198414.

KEYWORD

allocated

nonn,cons

AUTHOR

Clark Kimberling (ck6(AT)evansville.edu), Oct 27 2011

STATUS

approved

editing

#1 by Clark Kimberling at Thu Oct 27 10:17:57 EDT 2011

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved