A012360 Expansion of e.g.f.: sech(tan(x)*log(x+1))=1-12/4!*x^4+60/5!*x^5-570/6!*x^6+3780/7!*x^7...

1, 0, 0, 0, -12, 60, -570, 3780, -26880, 145152, 67800, -19702320, 483806664, -8808530016, 143791860576, -2098017710880, 26000312931840, -200354333649536, -2365679417115840, 173236427161446528

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sech[Tan[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 29 2018 *)

Crossrefs

Sequence in context: A012517 A012314 A233004 * A012708 A009077 A012702

Adjacent sequences: A012357 A012358 A012359 * A012361 A012362 A012363

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Nov 29 2018

Status

approved