A030172 Let c be the point at which Gamma(x), x>0, is minimized; sequence gives continued fraction for Gamma(c).

0, 1, 7, 1, 2, 1, 6, 1, 1, 1, 1, 6, 1, 4, 1, 1, 10, 3, 1, 10, 3, 4, 2, 1, 1, 2, 1, 6, 1, 1, 11, 1, 1, 2, 1, 2, 1, 1, 1, 3, 35, 3, 5, 2025, 1, 1, 2, 6, 3, 4, 16, 1, 1, 2, 2, 3, 1, 2, 1, 1, 3, 1, 8, 4, 13, 1, 8, 10, 3, 14, 1, 2

Offset: 0

Author

Eric W. Weisstein

Keywords

• nonn
• cofr

Links

• G. C. Greubel, Table of n, a(n) for n = 0..5000
• Eric Weisstein's World of Mathematics, Gamma Function.

Crossrefs

Cf. A030171.

Programs

Mathematica

ContinuedFraction[ Gamma[x] /. FindRoot[Gamma'[x] == 0, {x, 1}, WorkingPrecision -> 100], 72] (* Jean-François Alcover, Oct 29 2012 *)

PARI

contfrac(gamma(solve(x=1, 2, psi(x)))) \\ G. C. Greubel, Dec 28 2019