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

2, 5, 1, 8, 3, 5, 4, 2, 6, 9, 9, 3, 3, 4, 5, 3, 2, 8, 5, 3, 3, 3, 5, 9, 7, 5, 8, 5, 0, 4, 0, 0, 8, 4, 5, 7, 0, 7, 2, 4, 2, 7, 0, 5, 1, 3, 1, 3, 6, 2, 1, 3, 7, 6, 0, 0, 5, 7, 2, 0, 6, 1, 4, 0, 3, 4, 3, 0, 9, 4, 0, 5, 8, 9, 6, 8, 4, 6, 7, 9, 2, 8, 3, 4, 7, 2, 7, 8, 0, 8, 9, 9, 0, 6, 8, 5, 3, 7, 0, 0, 3, 0, 4, 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..104.

Example

-2.5183542699334532853335975850400845707242705131362137...

Maple

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

Mathematica

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

Prog

(PARI) default(realprecision, 120); solve(x = -2.6, -2.4, gamma(x)+psi(x))

Crossrefs

Cf. A268893, A268979, A268981.

Sequence in context: A283556 A340198 A362151 * A297012 A259449 A174815

Adjacent sequences: A268977 A268978 A268979 * A268981 A268982 A268983

Keyword

nonn,cons

Author

Iaroslav V. Blagouchine, Feb 16 2016

Status

approved