Welcome.
I do not know why there is a bug in 38 lines. Maybe someone will look and improve.
J = 4682: M = 3
B = INT(((235 * J) + 1) / 19)
C = INT(B / 1095)
D = (B MOD 1095)
E = INT(((15 * C) + (765433 * D) + 12084) / 25920)
F = (32336 * C) + E
G = (F MOD 7)
H = INT((6 * G) / 7)
I = (H MOD 2)
K = INT(((235 * (J - 1)) + 1) / 19)
L = INT(K / 1095)
M = INT(K MOD 1095)
N = INT(((15 * L) + (765433 * M) + 12084) / 25920)
O = (32336 * L + N)
P = (O MOD 7)
R = INT((6 * P) / 7)
S = (R MOD 2)
T = INT(((235 * (J + 1)) + 1) / 19)
U = INT(T / 1095)
W = (T MOD 1095)
AA = INT(((15 * L) + (765433 * T) + 12084) / 25920)
AB = INT(T / 1095)
AC = (T MOD 1095)
AD = INT(((15 * AB) + (765433 * AC) + 12084) / 25920)
AE = 32336 * U + AA
AF = (AE MOD 7)
AG = INT((6 * AF) / 7)
AH = (AG MOD 2)
AI = INT(((235 * (J + 2)) + 1) / 19)
AJ = INT(AI / 1095)
AK = (AI MOD 1095)
AL = INT(((15 * AJ) + (765433 * AK) + 12084) / 25920)
AM = 32336 * AJ + AL
AN = (AM MOD 7)
AO = INT((6 * AN) / 7)
AP = (AO MOD 2)
AR = AE + AH - F
AS = F - O - S
AT = AM - (AE + AH)
AU = INT((AR + 19) / 15)
AW = (AU MOD 2)
AX = INT((AS + 7) / 15)
AY = INT((AT + 19) / 15)
AZ = (AY MOD 2)
AV = INT((AR + 7) / 15)
BA = F + 2 * AW + (AX MOD 2)
BC = 1710442 + 1 + 2 * AZ + (AY MOD 2)
BD = BC - BA
BE = INT((BD + 7) / 2)
BF = INT((385 - BA) / 2)
BG = INT(((384 * (M - 1)) + 7) / 13)
BH = INT(((M - 1) + 4) / 12)
BI = INT(((M - 1) + 3) / 12)
C8 = (BE MOD 15)
C9 = -(BF MOD 15)
C3 = 59 + C8 * BH + C9 * BI
C4 = C3 + BA
PRINT C4
