A009241 - OEIS

%I #14 Apr 05 2022 13:16:45

%S 1,1,1,1,1,-7,-47,-55,449,2897,18209,5105,-1441087,-7252983,41192817,

%T 341550201,2660018305,43255573537,-460752070079,-11238852308639,

%U 21450325749889,963068748879257,1057483104728337,153386988236833449

%N Expansion of e.g.f.: exp(tan(tanh(x))).

%t With[{nn=30},CoefficientList[Series[Exp[Tan[Tanh[x]]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Apr 05 2022 *)

%K sign,easy

%O 0,6

%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 05 2022