OFFSET
1,1
EXAMPLE
x = 2.75501685669048486879290550748147369075005975463704644144...
MATHEMATICA
x /. FindRoot[x Log[Gamma[x]] - x LogGamma[x] + PolyGamma[-2, x] - 1, {x, 3}, WorkingPrecision -> 120] (* Peter J. C. Moses, Jun 27 2020 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Clark Kimberling, Jun 27 2020
STATUS
approved