%I #9 Jul 29 2021 11:03:17

%S 6,2,8,8,5,0,7,4,9,6,3,5,3,2,1,6,0,2,1,2,6,9,6,2,4,6,1,9,1,3,6,1,5,4,

%T 2,1,4,4,8,1,5,9,0,6,8,6,1,9,9,0,6,1,2,7,2,6,2,2,1,0,0,7,1,5,4,6,3,0,

%U 6,9,3,2,4,0,3,5,5,1

%N Decimal expansion of Integral_{s >= 0} (i^s + (-i)^s)/(2*Pi)^s.

%e Equals 0.6288507496353216...

%t c := NIntegrate[Re[((-I)^s + I^s)/(2 Pi)^s], {s, 0, Infinity},

%t WorkingPrecision -> 110, AccuracyGoal -> 100 ]; RealDigits[Re[c]][[1]]

%K nonn,cons

%O 0,1

%A _Peter Luschny_, Apr 23 2020