A268981 Decimal expansion of the third negative root of the equation Gamma(x) + Psi(x) = 0, negated.

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

Offset

1,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=1..103.

Example

-3.6557292473914630065114110434276622199924919665344134...

Maple

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

Mathematica

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

Prog

(PARI) default(realprecision, 120); solve(x = -3.7, -3.6, gamma(x)+psi(x))

Crossrefs

Cf. A268893, A268979, A268980.

Sequence in context: A323778 A102370 A291050 * A353909 A245652 A106109

Adjacent sequences: A268978 A268979 A268980 * A268982 A268983 A268984

Keyword

nonn,cons

Author

Iaroslav V. Blagouchine, Feb 16 2016

Status

approved