login
A030170
Let c be the point at which Gamma(x), x>0, is minimized; sequence gives continued fraction for c.
1
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
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
KEYWORD
nonn,cofr
STATUS
approved