login
A009712
Expansion of tan(tanh(sin(x))).
0
1, -1, -7, 391, -17263, 680239, 1450569, -7957325193, 2085950965153, -451440698199841, 87302333394141977, -12244874410272223257, -1227047210877649641679, 2438662572717698729224975
OFFSET
0,3
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[Tanh[Sin[x]]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jun 14 2016 *)
CROSSREFS
Sequence in context: A184954 A185354 A222893 * A128793 A042527 A203588
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Jun 14 2016
STATUS
approved