login

Revision History for A198560

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Decimal expansion of x > 0 having 3*x^2-2*x = sin(x).
(history; published version)
#7 by Georg Fischer at Sun Aug 01 11:06:39 EDT 2021
STATUS

editing

approved

#6 by Georg Fischer at Sun Aug 01 11:06:35 EDT 2021
NAME

Decimal expansion of x > 0 having 3*x^2-2x2*x = sin(x).

OFFSET

1,0,1

EXAMPLE

x=0.951893102981406356951185395774192495402145469...

EXTENSIONS

Offset corrected by Georg Fischer, Aug 01 2021

STATUS

approved

editing

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

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

Discussion
Fri Mar 30
18:57
OEIS Server: https://oeis.org/edit/global/285
#4 by T. D. Noe at Wed Oct 26 20:17:37 EDT 2011
STATUS

proposed

approved

#3 by Clark Kimberling at Wed Oct 26 19:33:59 EDT 2011
STATUS

editing

proposed

#2 by Clark Kimberling at Wed Oct 26 19:18:16 EDT 2011
NAME

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

DATA

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

OFFSET

1,1

COMMENTS

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

EXAMPLE

x=0.951893102981406356951185395774192495402145469...

MATHEMATICA

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

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

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

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

RealDigits[r] (* A198560 *)

CROSSREFS

Cf. A198414.

KEYWORD

allocated

nonn,cons

AUTHOR

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

STATUS

approved

editing

#1 by Clark Kimberling at Wed Oct 26 17:27:32 EDT 2011
NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved