A013332 Expansion of e.g.f.: cos(exp(x)-sec(x))=1-1/2!*x^2-3/4!*x^4+20/5!*x^5+3/6!*x^6...

1, 0, -1, 0, -3, 20, 3, 420, -343, 8424, -22249, 260040, -239547, 10498748, 94138107, -147119700, 19810696721, -201766341168, 3757708820591, -61124264974704, 781479753273933, -16996638107062684

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Cos[Exp[x]-Sec[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 27 2022 *)

Crossrefs

Sequence in context: A117844 A260371 A067607 * A223282 A223480 A063871

Adjacent sequences: A013329 A013330 A013331 * A013333 A013334 A013335

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Mar 27 2022

Status

approved