OFFSET
0,3
FORMULA
E.g.f.: exp(-x^2/(x^2-2)) (even orders only).
a(n) ~ 2^n * n^(2*n - 1/4) / exp(2*n - 2*sqrt(n) + 1/2). - Vaclav Kotesovec, Sep 27 2021
MAPLE
a:= n-> (2*n)!*coeff(series(exp(-x^2/(x^2-2)), x, 2*n+1), x, 2*n):
seq(a(n), n=0..16); # Alois P. Heinz, Sep 27 2021
MATHEMATICA
terms = 12;
m = 2*terms+2;
Partition[CoefficientList[Exp[-x^2/(x^2-2)] + O[x]^(m+2), x]*Range[0, m]!, 2][[2 ;; , 1]] (* Jean-François Alcover, Sep 27 2021 *)
PROG
(PARI) my(x='x+O('x^35)); select(x->(x!=0), Vec(serlaplace(exp(-x^2/(x^2-2))))) \\ Michel Marcus, Sep 27 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Karol A. Penson, Mar 01 2003
EXTENSIONS
a(0)=1 prepended by Alois P. Heinz, Sep 27 2021
STATUS
approved