login
Expansion of e.g.f.: sin(x)*exp(tan(x)).
1

%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