A013451 E.g.f.: exp(tan(x)-tanh(x))=1+4/3!*x^3+160/6!*x^6+544/7!*x^7+17920/9!*x^9...

1, 0, 0, 4, 0, 0, 160, 544, 0, 17920, 261120, 707584, 3942400, 149360640, 1538068480, 5242548224, 111522611200, 2782416732160, 25458261360640, 166243180478464, 5279051703910400, 109528131284500480

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Tan[x]-Tanh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 19 2013 *)

Crossrefs

Sequence in context: A369379 A358292 A071608 * A013462 A326862 A222325

Adjacent sequences: A013448 A013449 A013450 * A013452 A013453 A013454

Keyword

nonn

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jun 19 2013

Status

approved