ClearAll;
$DefaultFont = {"Times-Roman",10};
H[0,x_] = 1; H[1,x_] = 2 x; H[n_,x_]:= Simplify[2(x H[n-1,x] - (n-1) H[n-2,x])];
Factor[H[4,x]]
H[7,x]