DSolve[y[x] + y''''[x] = Log[x], y[x], x]