AX equals BY Riemann hypothesis equivalent

Clear[f, A, B, n, s, a, b, x, m];
f[x_] := Zeta[x];
A[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[s + k/n - 1/n], {k, 1, n}]
B[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[s + k/n], {k, 1, n}]
X[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[-s + k/n - 1/n], {k, 1, n}]
Y[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[-s + k/n], {k, 1, n}]
n = 30;
s = 1/3 + 14*I;
s + (1/(1 - A[n, s]/B[n, s]));
a = N[%, n]
s = (1/3 + 14*I);
-s + 1/(1 - B[n, s]/A[n, s]);
b = N[%, n]
s = (1/3 + 14*I);
(-s + 1/(1 - X[n, s]/Y[n, s]));
c = N[%, n]
(a + b)
(1 - (b - c))
"here"
(a + b)*(1 - (b - c))

Clear[A, B, a, b, s, c, X, Y, f];
a = s + (1/(1 - A/B))
b = -s + 1/(1 - B/A)
c = (-s + 1/(1 - X/Y))
Expand[(a + b)*(1 - (b - c))]
Factor[%]
%*(A - B)*(X - Y) - (A - B)*(X - Y)
Factor[%]

f[x_] := Zeta[x];
A[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[s + k/n - 1/n], {k, 1, n}]
B[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[s + k/n], {k, 1, n}]
X[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[-s + k/n - 1/n], {k, 1, n}]
Y[n_, s_] :=
 Sum[(-1)^(k - 1)*Binomial[n - 1, k - 1]/f[-s + k/n], {k, 1, n}]

n = 30;
s = (14 + 13/100)*I;
A[n, s]*X[n, s];
N[A[n, s]*X[n, s]]
B[n, s]*Y[n, s];
N[%, n]