

A013330


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


0



0, 1, 0, 3, 4, 37, 180, 1015, 11464, 57961, 1001640, 6231819, 117917644, 1041455053, 18546221148, 232421139007, 3887058864784, 64390950162769, 1075269065795664, 21514220038798995, 383113444907091604
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A032835 A102920 A064335 * A088168 A032836 A167760
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



