DSolve[Derivative[1][y][x] == (-1 + 2*Log[x]*y[x])^2/x,y[x],x]