login
A009394
Expansion of e.g.f.: log(1+tanh(x)*cos(x)).
0
0, 1, -1, -3, 14, -35, -16, 1057, -10256, 59865, -7936, -5446683, 85543424, -726781835, -22368256, 133713611977, -2849981597696, 32440474082865, -209865342976, -10034804733270963, 271127940241424384, -3854719922524818035
OFFSET
0,4
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Log[1+Tanh[x]Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 24 2014 *)
CROSSREFS
Sequence in context: A064226 A077288 A094627 * A076533 A081379 A081377
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, Aug 24 2014
STATUS
approved