A013243 Expansion of e.g.f.: cosh(log(x+1)-tan(x))=1+3/4!*x^4+90/6!*x^6-168/7!*x^7+4725/8!*x^8...

1, 0, 0, 0, 3, 0, 90, -168, 4725, -22176, 404964, -3167120, 51954903, -563026464, 9315656350, -126730926840, 2219178178217, -35798640990400, 676619926058632, -12499985614160160, 256672333451106667

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[Log[x+1]-Tan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 02 2021 *)

Crossrefs

Sequence in context: A276910 A013245 A013238 * A013244 A322458 A370712

Adjacent sequences: A013240 A013241 A013242 * A013244 A013245 A013246

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 02 2021

Status

approved