A013439 Expansion of e.g.f.: exp(tan(x)-log(x+1))=1+1/2!*x^2+9/4!*x^4-8/5!*x^5+225/6!*x^6...

1, 0, 1, 0, 9, -8, 225, -616, 11025, -57584, 901089, -7218288, 111426777, -1206961208, 19455493057, -263225301400, 4553837345057, -73099331076960, 1373357039852353, -25286525625615712, 517610171023053737

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Tan[x]-Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 01 2020 *)

Crossrefs

Sequence in context: A357880 A038298 A370935 * A180680 A165398 A329716

Adjacent sequences: A013436 A013437 A013438 * A013440 A013441 A013442

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jun 01 2020

Status

approved