|
%I #12 May 30 2015 17:04:56
%S 0,2,-1,-4,18,-118,495,-3336,16492,-124390,697995,-5665356,31847574,
%T -230282830,297803779,15399702624,-527666397480,11555528032498,
%U -238917247672905,4947107036570988,-102644658064599590
%N Expansion of e.g.f. sin(tan(x)+log(x+1)).
%H Alois P. Heinz, <a href="/A012925/b012925.txt">Table of n, a(n) for n = 0..170</a>
%e 2*x -1/2!*x^2 -4/3!*x^3 +18/4!*x^4 -118/5!*x^5 ...
%p a:= n-> n! *coeff(series(sin(tan(x)+log(x+1)), x, n+1), x, n):
%p seq(a(n), n=0..30); # _Alois P. Heinz_, Jun 08 2012
%t With[{nn=20},CoefficientList[Series[Sin[Tan[x]+Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 30 2015 *)
%K sign
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
