%I #10 Jun 11 2014 14:30:37
%S 1,1,3,12,57,332,2209,16730,140609,1302664,13137441,143354574,
%T 1680017889,21043179068,280310970385,3955899181730,58931602709633,
%U 923925812276752,15201851967182913,261859798838325270
%N Expansion of e.g.f.: exp(tan(x).exp(x)).
%t With[{nn=20},CoefficientList[Series[Exp[Tan[x]*Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 11 2014 *)
%K nonn,easy
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier GĂ©rard_.
%E Previous Mathematica program replaced and definition clarified by _Harvey P. Dale_, Jun 11 2014