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