OFFSET
0,1
COMMENTS
MATHEMATICA
xmin=x /. FindRoot[Im[Gamma[-x + I Sqrt[1 - x^2]]], {x, 0.5}, WorkingPrecision -> 106]; RealDigits[Re[-Gamma[-x + I Sqrt[1 - x^2]]/. x->xmin]][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Artur Jasinski, Aug 08 2023
STATUS
approved