import numberdb.sage as numberdb
from sage.rings.real_arb import RealBallField
from sage.rings.rational_field import QQ
from sage.arith.misc import moebius
R = RealBallField(numberdb.bits(100, losing=128))
C = (2*R.pi()).log() - R.euler_constant()
def V(p, q):
return sum((R(QQ((m*p) % q)/q) *
(R.pi()*R(QQ(m)/q)).cot()
for m in range(1, q)), R(0))
def A(r):
p, q = int(r.numerator()), int(r.denominator())
x = R(r)
return ((1-x)*x.log()+(1+x)*C)/2 - R.pi()*(V(p,q)+V(q,p))/(2*q)
def E(N):
assert N >= 2
w = [R(0) if n == N else R(moebius(n))*(1-R(n).log()/R(N).log())
for n in range(1, N+1)]
b = [(R(n).log()+1-R.euler_constant())/n for n in range(1, N+1)]
return 1 + 2*sum((w[i]*b[i] for i in range(N)), R(0)) + sum(
(w[j-1]*w[k-1]*A(QQ(j)/k)/j
for j in range(1,N+1) for k in range(1,N+1)), R(0))
print(E(10))
Computed using Arb real balls at 461 working bits. Finite Vasyunin sums give the Gram entries at exact rational ratios, and interval arithmetic propagates every rounding error through the squared norm. Every value is finite and retains at least 449 bits of relative accuracy, sufficient for the 100 significant digits stored. No rounded companion values are used as inputs.
An independent 640-bit computation evaluates all 465 symmetric Gram entries by analytically integrating the piecewise quadratic fractional-part products against the trigamma kernel. It integrates 16 terms directly, uses 112 terms of a uniformly convergent expansion for the remainder, and adds an explicit bound for the omitted tail. The independent squared-error radii are less than $10^{-130}$. Known-answer and deliberate-error controls precede the comparisons. Both enclosures lie strictly inside each stored last-place interval. All 29 errors, the weight conventions, Gram symmetry and the lower bounds from independently solved least-squares systems are checked; the independent minima also lie inside the matching stored intervals in T641. The displayed Sage program agrees over the whole stored range. The generator, checks, derivation and numerical evidence are attached.