ode=((30+4*x)*y[x]+5*(-6+x)*x*y'[x]+x^2*(3+x)*y''[x]+x^3*y'''[x]==0);
sol=TimeConstrained[DSolve[ode,y[x],x],30]

Series::ztest1: Unable to decide whether numeric quantity