\[ \boxed { xy \left ( x \right ) \left ( {\frac {\rm d}{{\rm d}x}}y \left ( x \right ) \right ) ^{2}+ \left ( {x}^{22}- \left ( y \left ( x \right ) \right ) ^{2}+a \right ) {\frac {\rm d}{{\rm d}x}}y \left ( x \right ) -xy \left ( x \right ) =0} \]
Mathematica: cpu = 65.128270 (sec), leaf count = 38 \[ \text {DSolve}\left [\left (a+x^{22}-y(x)^2\right ) y'(x)+x y(x) y'(x)^2-x y(x)=0,y(x),x\right ] \]
Maple: cpu = 1.264 (sec), leaf count = 0 \[ \text {could not solve} \]