A009519 - OEIS

%I #12 Apr 23 2020 19:22:22

%S 0,1,-1,-1,12,-44,0,1364,-11312,34588,378900,-7237396,57785376,

%T -13438424,-7111845832,116461238984,-835329363840,-6161526961904,

%U 288993527986032,-4444723274423248,22035938200252480,733027816359058816

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

%t With[{nn=30},CoefficientList[Series[Sin[Tanh[Log[1+x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Apr 23 2020 *)

%K sign,easy

%O 0,5

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E Prior Mathematica program replaced and definition clarified by _Harvey P. Dale_, Apr 23 2020