%I #16 Jul 10 2014 03:17:30
%S 0,1,2,2,8,36,168,944,5760,41104,310304,2650592,23894144,237023424,
%T 2481859968,28021573376,333725331456,4225816615168,56329065984512,
%U 790713657219584,11650274400684032,179579770991391744
%N Expansion of e.g.f.: sin(x)*exp(tan(x)).
%H Vincenzo Librandi, <a href="/A009543/b009543.txt">Table of n, a(n) for n = 0..300</a>
%t With[{nn=30},CoefficientList[Series[Sin[x]*Exp[Tan[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Jul 09 2014 *)
%K nonn,easy
%O 0,3
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier GĂ©rard_.
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jul 09 2014