login
Expansion of e.g.f.: sin(log(1+tan(x))).
0

%I #12 Jul 18 2022 14:50:10

%S 0,1,-1,3,-8,26,-46,-542,12272,-196204,2970284,-46125412,747689152,

%T -12796612984,231568711464,-4435090726232,89781803413632,

%U -1918433012222064,43187041330469744,-1022364892192828752

%N Expansion of e.g.f.: sin(log(1+tan(x))).

%t With[{nn=20},CoefficientList[Series[Sin[Log[1+Tan[x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 18 2022 *)

%K sign,easy

%O 0,4

%A _R. H. Hardin_

%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997

%E Previous Mathematica program replaced and definition clarified by _Harvey P. Dale_, Jul 18 2022