[[_high_order, _missing_y]]
Book solution method
TO DO
Mathematica ✓
cpu = 0.0609586 (sec), leaf count = 62
Maple ✓
cpu = 0.138 (sec), leaf count = 51
DSolve[x^2*y''''[x] == 2*y'''[x],y[x],x]
Mathematica raw output
{{y[x] -> (x*(2 + 5*x + x^2)*C[1])/(6*E^(2/x)) + C[2] + x*C[3] + x^2*C[4] + ((2
+ 6*x + 3*x^2)*C[1]*ExpIntegralEi[-2/x])/3}}
Maple raw input
dsolve(x^2*diff(diff(diff(diff(y(x),x),x),x),x) = 2*diff(diff(diff(y(x),x),x),x), y(x),'implicit')
Maple raw output
y(x) = -_C1*(x^2+2*x+2/3)*Ei(1,2/x)+1/6*x*_C1*(x^2+5*x+2)*exp(-2/x)+1/2*_C2*x^2+
_C3*x+_C4