The On-Line Encyclopedia of Integer Sequences® (OEIS®)

Revision History for A200679 (Underlined text is an addition; strikethrough text is a ~~deletion~~.)
Showing all changes.

A200679

Decimal expansion of the lesser of two values of x satisfying 2*x^2 = tan(x) and 0 < x < Pi/2.
(history; published version)

#9 by Andrew Howroyd at Fri Apr 09 15:52:35 EDT 2021

STATUS

proposed

approved

#8 by Jon E. Schoenfield at Fri Apr 09 15:01:39 EDT 2021

STATUS

editing

proposed

#7 by Jon E. Schoenfield at Fri Apr 09 15:01:38 EDT 2021

NAME

Decimal expansion of the lesser of two values of x satisfying 2*x^2= = tan(x) and 0< < x<pi < Pi/2.

COMMENTS

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

STATUS

approved

editing

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

AUTHOR

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

Discussion
Fri Mar 30	18:58	OEIS Server: https://oeis.org/edit/global/285

#5 by N. J. A. Sloane at Sun Nov 20 20:50:20 EST 2011

STATUS

proposed

approved

#4 by Clark Kimberling at Sun Nov 20 16:21:54 EST 2011

STATUS

editing

proposed

#3 by Clark Kimberling at Sun Nov 20 15:57:47 EST 2011

	NAME	`allocatedDecimal expansion of the lesser of two values of x forsatisfying Clark2*x^2=tan(x) and Kimberling0<x<pi/2.`
	DATA	`5, 5, 9, 7, 0, 4, 1, 5, 2, 2, 7, 3, 0, 8, 0, 6, 5, 0, 6, 1, 0, 3, 7, 7, 2, 1, 2, 8, 3, 5, 8, 8, 0, 2, 2, 9, 6, 9, 7, 4, 6, 8, 1, 6, 7, 1, 2, 6, 5, 9, 3, 6, 9, 3, 1, 3, 4, 8, 7, 3, 7, 8, 2, 6, 9, 0, 2, 3, 0, 0, 6, 6, 4, 1, 2, 7, 2, 9, 0, 3, 8, 0, 8, 3, 0, 1, 0, 8, 7, 4, 2, 3, 3, 0, 6, 4, 0, 2, 1`
	OFFSET	`0,1`
	COMMENTS	`See A200614 for a guide to related sequences. The Mathematica program includes a graph.`
	EXAMPLE	`lesser: 0.55970415227308065061037721283588022...` `greater: 1.27034264779958271106399033503202112...`
	MATHEMATICA	`a = 2; c = 0;` `f[x_] := ax^2 - 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, .5, .6}, WorkingPrecision -> 110]` `RealDigits[r] ( A200679 )` `r = x /. FindRoot[f[x] == g[x], {x, 1.2, 1.3}, WorkingPrecision -> 110]` `RealDigits[r] ( A200680 *)`
	CROSSREFS	`Cf. A200614.`
	KEYWORD	`allocated` `nonn,cons`
	AUTHOR	`Clark Kimberling (ck6(AT)evansville.edu), Nov 20 2011`
	STATUS	`approved` `editing`

#2 by Clark Kimberling at Sun Nov 20 15:45:10 EST 2011

KEYWORD

allocating

allocated

#1 by Clark Kimberling at Sun Nov 20 15:45:10 EST 2011

	NAME	`allocated for Clark Kimberling`
	KEYWORD	`allocating`
	STATUS	`approved`

Last modified August 30 19:27 EDT 2024. Contains 375545 sequences. (Running on oeis4.)