|
%I #12 Aug 30 2020 15:27:32
%S 0,1,-1,2,-6,16,0,-568,7504,-78248,739080,-6314848,44072688,
%T -125928464,-3754236304,114500663552,-2264653307520,37495468333696,
%U -536284797406848,6159440282136320,-34551694794080000,-931439976890484224
%N Expansion of e.g.f.: tan(tanh(log(1+x))).
%t With[{nn=30},CoefficientList[Series[Tan[Tanh[Log[1+x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 30 2020 *)
%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 previous Mathematica program replaced by _Harvey P. Dale_, Aug 30 2020
|
