This is what I'd do in Mathematica: Define . Calculate the first, third, and second derivatives, form the right and left sides, equate coefficients and construct seven equations in six unknowns (y'y''' has x^6 term), then use Solve to find the solution. Note that Solve reports c, d, e, and f are zero. Not sure why it's posting the results multiple times. Hopefully, you can translate it to Maple if you wish.

Code:

In[25]:= val = a + b*x + c*x^2 + d*x^3 + e*x^4 + f*x^5;
d1 = D[val, {x, 1}];
d3 = D[val, {x, 3}];
d2 = D[val, {x, 2}];
leftside = d1*d3;
rightside = d2;
eqns = Table[
Coefficient[leftside, x, n] == Coefficient[rightside, x, n], {n, 0,
6}]
Solve[eqns, {a, b, c, d, e, f}]
Out[31]= {6 b d == 2 c, 12 c d + 24 b e == 6 d,
18 d^2 + 48 c e + 60 b f == 12 e, 96 d e + 120 c f == 20 f,
96 e^2 + 210 d f == 0, 360 e f == 0, 300 f^2 == 0}
During evaluation of In[25]:= Solve::svars: Equations may not give \
solutions for all "solve" variables. >>
Out[32]= {{c -> 0, f -> 0, e -> 0, d -> 0}, {c -> 0, f -> 0, e -> 0,
d -> 0}, {c -> 0, f -> 0, e -> 0, d -> 0}, {c -> 0, f -> 0, e -> 0,
d -> 0}}

[edit] results in 7 equations in 6 unknowns (y'y''' has x^6 term)