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;
|