%I #16 Dec 29 2019 08:40:49
%S 0,1,7,1,2,1,6,1,1,1,1,6,1,4,1,1,10,3,1,10,3,4,2,1,1,2,1,6,1,1,11,1,1,
%T 2,1,2,1,1,1,3,35,3,5,2025,1,1,2,6,3,4,16,1,1,2,2,3,1,2,1,1,3,1,8,4,
%U 13,1,8,10,3,14,1,2
%N Let c be the point at which Gamma(x), x>0, is minimized; sequence gives continued fraction for Gamma(c).
%H G. C. Greubel, <a href="/A030172/b030172.txt">Table of n, a(n) for n = 0..5000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GammaFunction.html">Gamma Function.</a>
%t ContinuedFraction[ Gamma[x] /. FindRoot[Gamma'[x] == 0, {x, 1}, WorkingPrecision -> 100], 72] (* _Jean-François Alcover_, Oct 29 2012 *)
%o (PARI) contfrac(gamma(solve(x=1, 2, psi(x)))) \\ _G. C. Greubel_, Dec 28 2019
%Y Cf. A030171.
%K nonn,cofr
%O 0,3
%A _Eric W. Weisstein_
|