|
%I #29 Aug 10 2020 13:13:33
%S 3,2,6,6,1,8,0,0,7,0,9,1,3,5,9,6,9,0,4,8,1,3,8,4,1,4,7,2,8,5,8,3,3,3,
%T 4,0,5,0,8,5,9,3,0,7,3,3,8,6,1,8,9,7,7,9,2,0,9,3,0,0,8,2,7,3,9,7,0,3,
%U 0,0,4,7,6,8,6,0,6,5,2,5,5,1,1,2,9,5,4
%N Decimal expansion of 1 + Pi/log(4).
%F Equals limit_{z->0} -z*Z(1-z, 1) - z*(Z(1-z, 1/4) - Z(1-z, 3/4))/(2^(1-z) - 2), where Z(v, w) is the Hurwitz zeta function.
%F Equals 1 + (PolyGamma(3/4) - PolyGamma(1/4)) / log(4).
%e 3.26618007091359690481384147285833340508593073386189779209300827397030...
%p Digits := 100: 1 + Pi/log(4): evalf(%, 100)*10^86:
%p ListTools:-Reverse(convert(floor(%), base, 10));
%o (PARI) 1 + Pi/log(4) \\ _Michel Marcus_, Aug 10 2020
%Y Cf. A000796, A016627.
%K nonn,cons
%O 1,1
%A _Peter Luschny_, Aug 10 2020
|
