Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Nov 26 2015 08:53:27
%S 0,1,1,0,4,-5,-9,196,-1280,4509,12565,-386144,3804516,-19339385,
%T -75459461,3162527460,-41545303904,276166431961,1385435722185,
%U -73547738586656,1207721984518180,-9917136571683789,-60806773846655969
%N Expansion of e.g.f.: tanh(log(1+x))*exp(x).
%t With[{nn=30},CoefficientList[Series[Tanh[Log[1+x]]*Exp[x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 26 2015 *)
%K sign,easy
%O 0,5
%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_, Nov 26 2015