Added December 27, 2018.
Taken from https://en.wikipedia.org/wiki/List_of_nonlinear_partial_differential_equations
Degasperis Procesi. Solve for
Mathematica ✗
ClearAll["Global`*"]; pde = D[u[x, t], t] - D[D[u[x, t], {x, 2}], t] + 4*u[x, t]*D[u[x, t], x] == 3*D[u[x, t], x]*D[u[x, t], {x, 2}] + u[x, t]*D[u[x, t], {x, 3}]; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, u[x, t], {x, t}], 60*10]];
Failed
Maple ✓
restart; pde := diff(u(x,t),t)-diff(u(x,t),x,x,t)+4*u(x,t)*diff(u(x,t),x)=3*diff(u(x,t),x)*diff(u(x,t),x$2)+u(x,t)*diff(u(x,t),x$3); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',pdsolve(pde,u(x,t),'build')),output='realtime'));
____________________________________________________________________________________