|
%I #13 Jan 17 2020 16:26:36
%S 7,0,7,7,6,0,3,9,3,1,1,5,2,8,8,0,3,5,3,9,5,2,8,0,2,1,8,3,0,2,8,2,0,0,
%T 1,3,6,5,7,5,4,6,9,6,2,0,3,3,6,3,0,2,7,5,8,3,1,7,2,7,8,8,1,6,3,6,1,8,
%U 4,5,7,2,6,4,3,8,2,0,3,6,5,8,0,8,3,1,8,8,1,2,6,6,1,7,7,2,3,8,2,0,9,4,4
%N Decimal expansion of the real part of the limit (2N -> infinity) of Integral_{1..2N} exp(i*Pi*x)*x^(1/x) dx.
%H Steven R. Finch, <a href="http://arxiv.org/abs/2001.00578">Errata and Addenda to Mathematical Constants</a>, p. 60.
%e 0.070776039311528803539528021830282001365754696203363...
%t digits = 103; NIntegrate[x^(1/x)*Cos[Pi*x], {x, 1, Infinity}, WorkingPrecision -> 2*digits] // RealDigits[#, 10, digits]& // First
%Y Cf. A255728 (imaginary part), A157852.
%K nonn,cons
%O -1,1
%A _Jean-François Alcover_, Mar 04 2015
|
