login
Expansion of tan(sinh(x)-sin(x)) = 2/3!*x^3 + 2/7!*x^7 + 4480/9!*x^9 + 2/11!*x^11 + ...
0

%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