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