##[H,x^2]=[\frac{p^2}{2m},x^2]=\frac{1}{2m}[p^2,x^2]=p[p,x^2]+[p,x^2]p##
##[p,x^2]=-2i\hbar x##
from that
##[H,x^2]=-2i\hbar px-2i\hbar xp##
from that
##[H,[H,x^2]]=p[\frac{p^2}{2m},-2i\hbar x]+[\frac{p^2}{2m},-2i\hbar x]p+p[\frac{1}{2}m\omega^2x^2,-2i\hbar x]+[\frac{1}{2}m\omega^2x^2,-2i\hbar...