OFFSET
0,4
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..449
FORMULA
G.f.: Sum_{k>=0} (-1)^k * (2*k)! * x^(2*k) / (1 - x)^(2*k+1).
E.g.f.: exp(x) / (1 + x^2).
a(0) = a(1) = 1; a(n) = 1 - n * (n-1) * a(n-2).
MATHEMATICA
Table[n! Sum[(-1)^k/(n - 2 k)!, {k, 0, Floor[n/2]}], {n, 0, 22}]
nmax = 22; CoefficientList[Series[Exp[x]/(1 + x^2), {x, 0, nmax}], x] Range[0, nmax]!
(* alternative code *)
f[x_]:=I*(ExpIntegralE[-x, I]*E^I-ExpIntegralE[-x, -I]*E^(-I))/2
FunctionExpand[Array[f, 20, 0]] (* _Velin Yanev_, Oct 13 2021 *)
PROG
(PARI) a(n) = n!*sum(k=0, n\2, (-1)^k / (n-2*k)!); \\ _Michel Marcus_, Sep 18 2020
CROSSREFS
KEYWORD
sign
AUTHOR
_Ilya Gutkovskiy_, Sep 18 2020
STATUS
approved