%I #11 Jan 17 2020 16:10:15
%S 6,8,2,1,1,2,9,4,4,2,5,0,4,9,1,7,6,2,4,3,9,0,2,2,6,7,4,3,9,4,9,3,6,9,
%T 0,7,3,8,2,8,5,6,4,4,8,1,1,0,3,4,9,1,5,1,5,0,5,8,0,5,3,5,1,5,9,0,4,0,
%U 0,6,8,9,7,6,5,0,2,3,3,5,3,6,1,8,7,7,1,8,7,0,3,6,9,0,1,6,9,6,9
%N Decimal expansion of t_1, the upper bound of the conjectured first interval [t_0, t_1] where the real part of zeta(1+i*t) is negative.
%H Steven R. Finch, <a href="http://arxiv.org/abs/2001.00578">Errata and Addenda to Mathematical Constants</a>, p. 28.
%e 682112.9442504917624390226743949369073828564481103491515...
%t t1 = t /. FindRoot[Re[Zeta[1 + I*t]] == 0, {t, 682112.944 }, WorkingPrecision -> 120]; RealDigits[t1, 10, 99] // First
%Y Cf. A242069, A242070, A246843, A246844.
%K nonn,cons
%O 6,1
%A _Jean-François Alcover_, Sep 05 2014