%I #18 Feb 16 2025 08:32:35

%S 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,

%T 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,

%U 8,1,16,12,3,1,32,1

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

%H G. C. Greubel, <a href="/A030170/b030170.txt">Table of n, a(n) for n = 0..5000</a>

%H R. Schroeppel, <a href="http://www.inwap.com/pdp10/hbaker/hakmem/cf.html#item98">HAKMEM 140 - Continued Fractions: ITEM 98 (Minimum of factorial function)</a>. M.I.T., Artificial Intelligence Memo No. 239, February 29, 1972.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GammaFunction.html">Gamma Function.</a>

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

%o (PARI) contfrac(solve(x=1, 2, psi(x))) \\ _Michel Marcus_, Oct 18 2017

%Y Cf. A030169.

%K nonn,cofr,changed

%O 0,2

%A _Eric W. Weisstein_