[_separable]
Book solution method
Separable ODE, Neither variable missing
Mathematica ✓
cpu = 0.0237565 (sec), leaf count = 61
Maple ✓
cpu = 0.01 (sec), leaf count = 29
DSolve[x*y[x]^3*y'[x] == (1 - x^2)*(1 + y[x]^2),y[x],x]
Mathematica raw output
{{y[x] -> -Sqrt[-1 - ProductLog[-(E^(-1 + x^2 - 2*C[1])/x^2)]]}, {y[x] -> Sqrt[-
1 - ProductLog[-(E^(-1 + x^2 - 2*C[1])/x^2)]]}}
Maple raw input
dsolve(x*y(x)^3*diff(y(x),x) = (-x^2+1)*(1+y(x)^2), y(x),'implicit')
Maple raw output
1/2*x^2-ln(x)+1/2*y(x)^2-1/2*ln(1+y(x)^2)+_C1 = 0