D[x*BesselK[1,x],x]