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