series Log[BesselK[v, z]] as z -> 0