The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A200502

Decimal expansion of least x>0 satisfying 2*x^2-3*x+4=tan(x).
(history; published version)

#6 by Charles R Greathouse IV at Fri Feb 07 16:44:07 EST 2025

COMMENTS

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

Discussion

Fri Feb 07

16:44

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

#5 by Russ Cox at Fri Mar 30 18:58:01 EDT 2012

AUTHOR

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

Discussion

Fri Mar 30

18:58

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

#4 by T. D. Noe at Sat Nov 19 18:53:17 EST 2011

STATUS

proposed

approved

#3 by Clark Kimberling at Sat Nov 19 17:55:26 EST 2011

STATUS

editing

proposed

#2 by Clark Kimberling at Sat Nov 19 14:10:07 EST 2011

NAME

allocated for Clark KimberlingDecimal expansion of least x>0 satisfying 2*x^2-3*x+4=tan(x).

DATA

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

OFFSET

1,2

COMMENTS

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

EXAMPLE

x=1.28916812538376042494215146120892522462960660...

MATHEMATICA

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

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

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

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

RealDigits[r] (* A200502 *)

CROSSREFS

Cf. A200338.

KEYWORD

allocated

nonn,cons

AUTHOR

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

STATUS

approved

editing

#1 by Clark Kimberling at Fri Nov 18 15:22:03 EST 2011

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved