Plot[Coth[1/x]/x - Log[2 Sinh[1/x]],{x,0,10}]