|
%I #13 Feb 06 2015 13:07:34
%S 0,2,0,450,4480,1786050,61776000,37240453250,2713505184000,
%T 2464296285701250,308006231110240000,397784819452992221250,
%U 76036685958833418000000,132964856302641623934781250
%N tan(arcsin(x)-arcsinh(x)) = 2/3!*x^3+450/7!*x^7+4480/9!*x^9...
%F a(n) = (2n+1)! * [x^(2n+1)] tan(arcsin(x)-arcsinh(x)).
%p a:= n-> (2*n+1)!*coeff(series(tan(arcsin(x)-arcsinh(x)),
%p x, 2*n+2), x, 2*n+1):
%p seq(a(n), n=0..20); # _Alois P. Heinz_, Jul 20 2013
%t With[{nn=30},Take[CoefficientList[Series[Tan[ArcSin[x]-ArcSinh[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jul 20 2013 *)
%K nonn
%O 1,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0)=0 prepended and programs adapted by _Vaclav Kotesovec_, Feb 06 2015
|
