A268893 Decimal expansion of the unique positive root of the equation Gamma(x) + Psi(x) = 0.

6, 3, 8, 8, 7, 8, 7, 4, 1, 1, 6, 0, 1, 9, 8, 3, 2, 2, 9, 9, 5, 2, 7, 6, 2, 4, 7, 2, 4, 7, 5, 4, 0, 6, 1, 5, 0, 9, 6, 9, 4, 2, 7, 2, 2, 3, 8, 4, 4, 4, 3, 5, 5, 4, 2, 3, 4, 9, 3, 1, 2, 6, 3, 2, 5, 3, 7, 1, 8, 0, 8, 4, 7, 8, 4, 8, 1, 0, 2, 2, 3, 0, 5, 0, 9, 5, 5, 7, 6, 3, 0, 9, 2, 9, 9, 4, 3, 0, 6, 1, 3, 6, 8, 8, 7, 8

Offset

0,1

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).

Links

Table of n, a(n) for n=0..105.

Example

0.6388787411601983229952762472475406150969427223844435...

Maple

Digits:= 150; fsolve(GAMMA(x)+Psi(x)=0, x);

Mathematica

FindRoot[Gamma[x]+PolyGamma[x]==0, {x, 0.6}, WorkingPrecision->120][[1, 2]] // RealDigits[#, 10, 106]& // First

Prog

(PARI) default(realprecision, 120); solve(x = 0.60, 0.68, gamma(x)+psi(x))

Crossrefs

Cf. A268895, A268979, A268980, A268981.

Sequence in context: A088246 A179559 A086648 * A199447 A273067 A306774

Adjacent sequences: A268890 A268891 A268892 * A268894 A268895 A268896

Keyword

nonn,cons

Author

Iaroslav V. Blagouchine, Feb 15 2016

Status

approved