|
%I #17 Jun 21 2022 16:24:46
%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="http://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
%O 0,2
%A _Eric W. Weisstein_
|
