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

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.

Mathematica

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

Prog

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

Crossrefs

Cf. A030169.

Sequence in context: A173606 A134706 A145756 * A082640 A139695 A347949

Adjacent sequences: A030167 A030168 A030169 * A030171 A030172 A030173

Keyword

nonn,cofr

Author

Eric W. Weisstein

Status

approved