login
A009657
Expansion of tan(sin(sin(x))).
0
1, 0, -12, 88, 4176, -238912, -1798976, 1359954560, -82934087424, -12122717059072, 3176281608315904, -22431206333925376, -144730933261140701184, 27574419119401032040448, 6996748839515967274205184
OFFSET
0,3
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[Sin[Sin[x]]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jan 15 2020 *)
CROSSREFS
Sequence in context: A155635 A126507 A181704 * A012088 A083825 A181944
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Jan 15 2020
STATUS
approved