|
%I #8 Feb 06 2015 12:33:11
%S 0,2,0,2,4480,2,274560,717516802,20650240,397299302402,
%T 1260764869707520,211694311628802,3189730834295158400,
%U 12098583209553471488002,6723227372694939050880
%N Expansion of tan(sinh(x)-sin(x)) = 2/3!*x^3 + 2/7!*x^7 + 4480/9!*x^9 + 2/11!*x^11 + ...
%t nn = 20; Table[(CoefficientList[Series[-Tan[Sin[x] - Sinh[x]], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* _Vaclav Kotesovec_, Feb 06 2015 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 prepended by _Vaclav Kotesovec_, Feb 06 2015
%E Definition modified by _Vaclav Kotesovec_, Feb 06 2015
|
