A013330 E.g.f.: tan(exp(x)-sec(x))=x+3/3!*x^3-4/4!*x^4+37/5!*x^5-180/6!*x^6...

0, 1, 0, 3, -4, 37, -180, 1015, -11464, 57961, -1001640, 6231819, -117917644, 1041455053, -18546221148, 232421139007, -3887058864784, 64390950162769, -1075269065795664, 21514220038798995, -383113444907091604

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tan[Exp[x]-Sec[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 21 2014 *)

Crossrefs

Sequence in context: A102920 A064335 A376966 * A274663 A088168 A032836

Adjacent sequences: A013327 A013328 A013329 * A013331 A013332 A013333

Keyword

sign

Author

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

Extensions

Definition clarified and zero prepended by Harvey P. Dale, Aug 21 2014

Status

approved