for n = 100, N[Log[2, ((24*2^10*12!)^Mod[n, 2] 7!3^6 24!^Floor[(n^2 - 2 n)/4])/4!^(6 Floor[(n - 2)^2/4])],3]