D[Power[Sin[3x^2-4x+1],4],x]