|
|
A305328
|
|
Decimal expansion of the least x such that 1/x + 1/(x+1) + 1/(x+2) = 1 (negated).
|
|
36
|
|
|
1, 6, 7, 5, 1, 3, 0, 8, 7, 0, 5, 6, 6, 6, 4, 6, 0, 7, 0, 8, 8, 9, 6, 2, 1, 7, 9, 8, 1, 5, 0, 0, 6, 0, 4, 8, 0, 8, 0, 8, 0, 3, 2, 5, 2, 7, 6, 7, 7, 3, 7, 2, 7, 3, 2, 6, 1, 2, 1, 5, 3, 8, 6, 9, 8, 4, 1, 4, 4, 2, 0, 4, 2, 9, 9, 0, 4, 9, 9, 3, 1, 9, 7, 4, 2, 2
(list;
constant;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Equivalently, the least root of x^3 - 4*x - 2;
The following guide applies to zeros of rational functions of the form 1/x + 1/(x+v) + 1/(x+w) = d, for selected values of v,w, and d. The three zeros are distinct real numbers, denoted as least, middle, and greatest. These zeros are also the roots of the following cubic polynomial: p(u,v,w,d) = d x^3 + (d v + d w - 3) x^2 + (d v w - 2 v - 2 w) x - v w.
v w d p(u,v,w,d) least middle greatest
(End)
|
|
LINKS
|
|
|
FORMULA
|
greatest: (4*cos((1/3)*arctan(sqrt(37/3)/3)))/sqrt(3);
middle: -((2*cos((1/3)*arctan(sqrt(37/3)/3)))/sqrt(3)) + 2*sin((1/3)*arctan(sqrt(37/3)/3));
least: -((2*cos((1/3)*arctan(sqrt(37/3)/3)))/sqrt(3)) - 2*sin((1/3)*arctan(sqrt(37/3)/3)).
|
|
EXAMPLE
|
greatest root: 2.214319743377535187...
middle root: -0.539188872810889116...
least root: -1.67513087056664607088...
|
|
MATHEMATICA
|
r[x_] := 1/x + 1/(x + 1) + 1/(x + 2);
-Numerator[Factor[r[x] - 1]]
t = x /. ComplexExpand[Solve[r[x] == 1, x]]
u = N[t, 120]
RealDigits[u[[1]]] (* A305326, greatest root *)
RealDigits[u[[2]]] (* A305327, middle root *)
RealDigits[u[[3]]] (* A305328, least root *)
|
|
PROG
|
(PARI) solve(x=-2, -1, x^3 - 4*x - 2) \\ Michel Marcus, Jul 16 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|