[[_3rd_order, _with_linear_symmetries]]
Book solution method
TO DO
Mathematica ✓
cpu = 0.0174024 (sec), leaf count = 33
Maple ✓
cpu = 0.021 (sec), leaf count = 30
DSolve[x*y[x] - x^2*y'[x] + 2*x^3*y''[x] + x^4*y'''[x] == 1,y[x],x]
Mathematica raw output
{{y[x] -> C[1]/x + x*C[2] + x*C[3]*Log[x] + (1 + Log[x])/(4*x)}}
Maple raw input
dsolve(x^4*diff(diff(diff(y(x),x),x),x)+2*x^3*diff(diff(y(x),x),x)-x^2*diff(y(x),x)+x*y(x) = 1, y(x),'implicit')
Maple raw output
y(x) = 1/4*(4*_C3*x^2*ln(x)+4*_C1*x^2+ln(x)+4*_C2+1)/x