|
%I #21 May 03 2022 12:00:29
%S 5,4,2,2,1,1,4,1,9,7,3,7,7,4,5,1,1,0,5,6,4,4,0,7,5,3,0,4,3,1,2,8,0,3,
%T 1,0,4,0,6,3,8,9,3,7,0,5,8,7,0,4,7,4,7,0,4,1,5,5,6,5,9,0,1,3,1,9,4,8,
%U 0,8,9,8,0,4,3,5,0,9,3,0,7,4,9,5,1,8,7,6,5,2,0,4,2,7,7,6,9,2,3,5,9,6
%N Decimal expansion of maximum real value at which the Pochhammer limit lim_{k->infinity} Product_{i=0..k} (z + i/k) converges.
%H Hideyuki Ohtsuka, <a href="https://doi.org/10.1080/00029890.2018.1424478">Problem 12029</a>, Amer. Math. Monthly, Vol. 125, Issue 3, 2018, Problem 12029, p. 276.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PochhammerSymbol.html">Pochhammer Symbol</a>
%e c = 0.5422114197377451105644075304312803104063893705870474704155659...
%t c = z /. FindRoot[(1+z)^(1+z) == E*z^z, {z, 1/2}, WorkingPrecision -> 102]; RealDigits[c][[1]] (* _Jean-François Alcover_, Sep 19 2016, after _Eric W. Weisstein_ *)
%Y Cf. A090463.
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Dec 01 2003
|
