DSolve[-(a^4*x^3*y[x]) + Derivative[1][y][x] - x*Derivative[2][y][x] + 2*x^2*Derivative[3][y][x] + x^3*Derivative[4][y][x] == 0,y[x],x]