Added December 27, 2018.
Taken from https://en.wikipedia.org/wiki/List_of_nonlinear_partial_differential_equations
Sawada Kotera. Solve for \(u(x,t)\)
Mathematica ✓
ClearAll["Global`*"]; pde = D[u[x, t], t] + 45*u[x, t]^2*D[u[x, t], x] + 15*D[u[x, t], x]*D[u[x, t], {x, 2}] + 15*u[x, t]*D[u[x, t], {x, 3}] + D[u[x, t], {x, 5}] == 0; sol = AbsoluteTiming[TimeConstrained[DSolve[pde, u[x, t], {x, t}], 60*10]];
Maple ✓
restart; pde := diff(u(x,t),t)+45* u(x,t)^2* diff(u(x,t),x)+ 15* diff(u(x,t),x)*diff(u(x,t),x$2)+15*u(x,t)*diff(u(x,t),x$3)+diff(u(x,t),x$5); cpu_time := timelimit(60*10,CodeTools[Usage](assign('sol',PDEtools:-TWSolutions(pde,u(x,t))),output='realtime'));
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________