constK=1/4 (-16 ArcSinh[1]+16 Sqrt[2] ArcSinh[1]-8 Log[2]-6 Sqrt[2] Log[2]-2 EulerGamma Zeta[1/2]-\[Pi] Zeta[1/2]+2 Log[2] Zeta[1/2]-2 Log[\[Pi]] Zeta[1/2]); entropyAsymptotic2[r_] :=1= 1/(4Log[2]Sqrt[r4 Log[2] Sqrt[r!]) (constK - HurwitzZeta[1/2,1+r 1 + r!] Log[4]+2Log[4] + 2 Sqrt[r!] Log[r!]+(Zeta^(1] + Derivative[1,0))[10][Zeta][1/2,1+r!])