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,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..5000

Eric Weisstein's World of Mathematics, Gamma Function.

Mathematica

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

Prog

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

Crossrefs

Cf. A030171.

Sequence in context: A111037 A369980 A090202 * A040052 A134898 A176440

Adjacent sequences: A030169 A030170 A030171 * A030173 A030174 A030175

Keyword

nonn,cofr

Author

Eric W. Weisstein

Status

approved