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

1, 2, 6, 63, 135, 1, 1, 1, 1, 4, 1, 38, 9, 2, 5, 734, 6, 4, 1, 1, 2, 16, 1, 1, 1, 2, 1, 5, 3, 1, 2, 2478, 1, 1, 1, 3, 8, 1, 1, 7, 1, 1, 1, 64, 29, 3, 10, 2, 5, 1, 1, 2, 61, 1, 39, 1, 5, 1, 1, 2, 1, 8, 1, 16, 12, 3, 1, 32, 1

Offset: 0

Author

Eric W. Weisstein

Keywords

• nonn
• cofr

Links

• G. C. Greubel, Table of n, a(n) for n = 0..5000
• R. Schroeppel, HAKMEM 140 - Continued Fractions: ITEM 98 (Minimum of factorial function). M.I.T., Artificial Intelligence Memo No. 239, February 29, 1972.
• Eric Weisstein's World of Mathematics, Gamma Function.

Crossrefs

Cf. A030169.

Programs

Mathematica

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

PARI

contfrac(solve(x=1, 2, psi(x))) \\ Michel Marcus, Oct 18 2017