A009172 - OEIS

%I #13 Jun 21 2015 21:52:22

%S 1,0,0,0,12,-60,90,-420,12320,-124992,753480,-6481200,110644776,

%T -1613081184,18917874976,-250425171360,4359533351680,-78311204695424,

%U 1329852024578496,-23869209971687040,483284209880289152

%N Expansion of e.g.f.: cosh(tanh(x)*log(1+x)).

%t With[{nn=20},CoefficientList[Series[Cosh[Tanh[x]Log[1+x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Apr 25 2014 *)

%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_, Apr 25 2014