login
A012379
Expansion of e.g.f. cos(tan(x)*arcsin(x)) (even powers only).
1
1, 0, -12, -360, -14000, -705600, -42520896, -2581394816, -50539790080, 43910434596864, 18893865109070848, 6357906196273494016, 1895076999147133456384, 366371561754009899909120, -176926962056569654501195776, -397908136700956338408562851840, -528899949644745117870350321778688
OFFSET
0,3
LINKS
EXAMPLE
1 - (12/4!)*x^4 - (360/6!)*x^6 - (14000/8!)*x^8 - ...
MAPLE
S:= series(cos(tan(x)*arcsin(x)), x, 51):
seq(coeff(S, x, 2*j)*(2*j)!, j=0..25); # Robert Israel, Jan 06 2019
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Cos[Tan[x]ArcSin[x]], {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jan 26 2012 *)
PROG
(Magma) m:=40; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!Cos(Tan(x)*Arcsin(x))); [Factorial(n-1)*b[n]: n in [1..m-1 by 2]]; // Vincenzo Librandi, Jan 07 2019
CROSSREFS
Sequence in context: A130213 A012633 A009079 * A012424 A009165 A012627
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
More terms from Robert Israel, Jan 06 2019
STATUS
approved