DSolve[Derivative[1][y][x] == (b*x^3*Cosh[x] + Log[x]*y[x] + a*x*Cosh[x]*y[x]^2)/(x*Log[x]),y[x],x]