OFFSET
0,1
COMMENTS
EXAMPLE
0.58565197968957261459032861223356319799409789265437719426362121839705...
MATHEMATICA
First[RealDigits[Im[Root[#^4 + #^2 + # + 1 &, 1]], 10, 100]] (* Paolo Xausa, Jun 25 2024 *)
PROG
(PARI) vecmin (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)[3] \\ Charles R Greathouse IV, Oct 27 2023
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Hugo Pfoertner, Oct 02 2023
STATUS
approved