A013351 Expansion of e.g.f.: exp(sin(x)-tan(x))=1-3/3!*x^3-15/5!*x^5+90/6!*x^6-273/7!*x^7...

1, 0, 0, -3, 0, -15, 90, -273, 2520, -15495, 126630, -977493, 9727740, -88854675, 979548570, -10671316113, 129584342160, -1617243395055, 21655877754510, -303182522321133, 4450716903531780, -68820502388338635

Offset

0,4

Links

Table of n, a(n) for n=0..21.

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Sin[x]-Tan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 08 2023 *)

Crossrefs

Sequence in context: A375591 A351155 A013490 * A013407 A013494 A375586

Adjacent sequences: A013348 A013349 A013350 * A013352 A013353 A013354

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition clarified by Harvey P. Dale, Aug 08 2023

Status

approved