OFFSET
1,3
COMMENTS
EXAMPLE
1.120873489937059302856055357373632173488591417333...
MATHEMATICA
First[RealDigits[Im[Root[#^4 + #^2 + # + 1 &, 3]], 10, 100]] (* Paolo Xausa, Jun 25 2024 *)
PROG
(PARI) vecmax (abs (imag (polroots (x^4 + x^2 + x + 1))))
(PARI) polrootsreal(4096*x^12 - 8192*x^10 + 7680*x^8 - 4480*x^6 - 368*x^4 - 312*x^2 + 257)[4] \\ Charles R Greathouse IV, Oct 27 2023
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Hugo Pfoertner, Oct 02 2023
STATUS
approved