f[x_] := 0.1 + (x-3)Exp[-(x-3)^2];

Taylor[n_]:=(D[f[x], {{x},n}]/. x-> 0)/n!

Flatten[Table[N[Taylor[n]], {n,0, 5}]]

Roots