Mathematica Program
$MaxPrecision=250000
     
r = {0,0};
r[[1]] = 300426607914281713365;
r[[2]] =  84129507677858393258;

L = {{0,0},{0,0}};
L[[1,1]] = 109931986732829734979866232821433543901088049;
L[[1,2]] = 392567302329690546856394748066206816187916440;
L[[2,1]] =  30784636507697855142356992218944109072681060;
L[[2,2]] = L[[1,1]];
     
L2    = L.L;
L4    = L2.L2;
L8    = L4.L4;
L16   = L8.L8;
L32   = L16.L16;
L64   = L32.L32;
L128  = L64.L64;
L256  = L128.L128;
L512  = L256.L256;

r4    = L4.r;
r12   = L8.r4;
r140  = L128.r12;
r652  = L512.r140;
r1164 = L512.r652;

b = 3*11*29*(r1164[[1]]*r1164[[2]])^2;
c = b/4657;

whitebulls   = 2*3*7*53*b;
blackbulls   =   2*9*89*b;
yellowbulls  =    11*81*b;
dappledbulls =   4*5*79*b;

whitecows    = 8*3*5*7*23*373*c;
blackcows    =   2*9*17*15991*c;
yellowcows   =     9*13*46489*c;
dappledcows := 4*3*5*7*11*761*c:

totalbulls=whitebulls+blackbulls+yellowbulls+dappledbulls;
totalcows =whitecows +blackcows +yellowcows +dappledcows; 
totalcattle = totalbulls + totalcows;