|
|
A009657
|
|
Expansion of tan(sin(sin(x))).
|
|
0
|
|
|
1, 0, -12, 88, 4176, -238912, -1798976, 1359954560, -82934087424, -12122717059072, 3176281608315904, -22431206333925376, -144730933261140701184, 27574419119401032040448, 6996748839515967274205184
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
Table of n, a(n) for n=0..14.
|
|
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
Adjacent sequences: A009654 A009655 A009656 * A009658 A009659 A009660
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
R. H. Hardin
|
|
EXTENSIONS
|
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Jan 15 2020
|
|
STATUS
|
approved
|
|
|
|