A009394 Expansion of e.g.f.: log(1+tanh(x)*cos(x)).

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

Links

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

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

Adjacent sequences: A009391 A009392 A009393 * A009395 A009396 A009397

Keyword

sign,easy

Author

R. H. Hardin

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