OFFSET
1,1
COMMENTS
A cubic integer with minimal polynomial x^3 - 7x^2 + 5x - 1, of which it is the unique real root. - Charles R Greathouse IV, Nov 06 2016
FORMULA
From Dimitri Papadopoulos, Nov 07 2023: (Start)
t^3 = (A276800^2 + 1)/2.
t^3 + 1/t^3 = t + 1/t + 4.
t^3 = (1/4)*(t + 1)^2*(t - 1)^2*(t^2 + 1). (End)
EXAMPLE
6.222262523120398626674561101108321187373560789846168428798321316639575...
MATHEMATICA
RealDigits[x /. FindRoot[x^3 - 7*x^2 + 5*x - 1, {x, 6}, WorkingPrecision -> 120]][[1]] (* Amiram Eldar, May 27 2023 *)
PROG
(PARI) polrootsreal(x^3-7*x^2+5*x-1)[1] \\ Charles R Greathouse IV, Nov 06 2016
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
N. J. A. Sloane, Oct 28 2016
STATUS
approved