DSolve[a*y[x] + 2*a*x*Derivative[1][y][x] + Derivative[3][y][x] == 0,y[x],x]