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