The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A199775

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

A199775

Decimal expansion of x>0 satisfying 2*x^2 - 2*x*cos(x) = 3*sin(x).
(history; published version)

#9 by Charles R Greathouse IV at Mon May 13 01:49:59 EDT 2013

PROG

(PARI) solve(x=1, 2, 2*x^2-2*x*cos(x)-3*sin(x)) \\ _Charles R Greathouse IV, _, Dec 28 2011

Discussion

Mon May 13

01:49

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

#8 by Russ Cox at Fri Mar 30 18:57:58 EDT 2012

AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Nov 10 2011

Discussion

Fri Mar 30

18:57

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

#7 by Charles R Greathouse IV at Wed Dec 28 09:41:03 EST 2011

STATUS

editing

approved

#6 by Charles R Greathouse IV at Wed Dec 28 09:41:01 EST 2011

NAME

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

EXAMPLE

x=1.331486959335040503327363069917339543025...

PROG

(PARI) solve(x=1, 2, 2*x^2-2*x*cos(x)-3*sin(x)) \\ Charles R Greathouse IV, Dec 28 2011

KEYWORD

nonn,cons

STATUS

approved

editing

#5 by T. D. Noe at Thu Nov 10 17:11:15 EST 2011

STATUS

proposed

approved

#4 by Clark Kimberling at Thu Nov 10 17:02:43 EST 2011

STATUS

editing

proposed

#3 by Clark Kimberling at Thu Nov 10 13:39:09 EST 2011

NAME

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

DATA

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

OFFSET

1,2

COMMENTS

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

EXAMPLE

x=1.331486959335040503327363069917339543025...

MATHEMATICA

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

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

Plot[{f[x], g[x]}, {x, -1, 2}, {AxesOrigin -> {0, 0}}]

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

RealDigits[r] (* A199775 *)

CROSSREFS

Cf. A199597.

KEYWORD

allocated

nonn

AUTHOR

Clark Kimberling (ck6(AT)evansville.edu), Nov 10 2011

STATUS

approved

editing

#2 by Clark Kimberling at Thu Nov 10 11:52:25 EST 2011

KEYWORD

allocating

allocated

#1 by Clark Kimberling at Thu Nov 10 11:52:25 EST 2011

NAME

allocated for Clark Kimberling

KEYWORD

allocating

STATUS

approved