login
A009156
Expansion of e.g.f.: cosh(tan(log(1+x))).
0
1, 0, 1, -3, 20, -140, 1216, -12096, 137080, -1737504, 24368656, -374527120, 6259083896, -112992788688, 2191121957480, -45420491782680, 1002232901602496, -23453004823018496, 580102806342112960
OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Cosh[Tan[Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 15 2014 *)
CROSSREFS
Sequence in context: A082143 A342055 A371411 * A074573 A068571 A074569
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Dec 15 2014
STATUS
approved