Maximize[(a - a^3)/Sqrt[(a - a^3)^2 + (a^4 + 1)^2], {a}]