I want to calculate the infinite sum of Hermite polynomials, which works fine with older versions of Mathematica, but with version 13 it doesn't. The infinite sum is:
Sum[HermiteH[n, x] λ^n/ n! Exp[-(1/2) (x^2) - λ^2 - I ( n + 1/2) t], {n,0,Infinity},Assumptions -> Element[{λ,x,t}, Reals]]
Can someone help? Thank you very much!
DiscreteAsymptotic[ HermiteH[n, x] \[Lambda]^n/ n! Exp[-(1/2) (x^2) - \[Lambda]^2 - I (n + 1/2) t] /. {x -> 0, t -> 1, \[Lambda] -> 1}, {n, Infinity, 1}]
results in $$ \frac{2^{n/2} e^{\left(\frac{1}{2}-i\right) n+\left(-1-\frac{i}{2}\right)} n^{-\frac{n}{2}-\frac{1}{2}} \cos \left(\frac{\pi n}{2}\right)}{\sqrt{\pi }}.$$ $\endgroup$E^((-1/2*I)*t - x^2/2 + (2*x*\[Lambda])/E^(I*t) + (-1 - E^((-2*I)*t))*\[Lambda]^2)
. $\endgroup$