OFFSET
1,2
COMMENTS
Gamma(x) stands for the gamma function (Euler's integral of the second kind), Psi(x) denotes the digamma function (logarithmic derivative of the gamma function).
EXAMPLE
-1.7815806901014616235785836618002982778798099544666740...
MAPLE
Digits:= 150: fsolve(GAMMA(x)+Psi(x)=0, x=-1.8);
MATHEMATICA
FindRoot[Gamma[x]+PolyGamma[x]==0, {x, -1.8}, WorkingPrecision->120][[1, 2]] // RealDigits[#, 10, 105]& // First
PROG
(PARI) default(realprecision, 120); solve(x = -1.80, -1.76, gamma(x)+psi(x))
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Iaroslav V. Blagouchine, Feb 16 2016
STATUS
approved