%I
%S 0,1,1,3,14,35,16,1057,10256,59865,7936,5446683,85543424,
%T 726781835,22368256,133713611977,2849981597696,32440474082865,
%U 209865342976,10034804733270963,271127940241424384,3854719922524818035
%N Expansion of e.g.f.: log(1+tanh(x)*cos(x)).
%t With[{nn=30},CoefficientList[Series[Log[1+Tanh[x]Cos[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 24 2014 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Aug 24 2014
