login
A009163
Expansion of e.g.f.: cosh(tan(x)*log(1+x)).
0
1, 0, 0, 0, 12, -60, 570, -3780, 36960, -326592, 3712200, -41836080, 554861736, -7563345504, 114963916704, -1819859452320, 31173297642240, -558346710891904, 10642982507666880, -212150797420894848, 4456607540110934912
OFFSET
0,5
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Cosh[Tan[x]*Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 14 2022 *)
CROSSREFS
Sequence in context: A012708 A009077 A012702 * A012706 A012359 A012707
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Jul 14 2022
STATUS
approved