|
%I #19 Apr 18 2014 18:57:15
%S 1,-4,68,-2584,171344,-17464448,2529148352,-493428887168,
%T 124730546544896,-39649824402078720,15479590269182063616,
%U -7280988095409621465088,4060943278418110382329856,-2650034901967494261760065536
%N E.g.f. tanh(sin(sin(x))) (odd powers only).
%H Vincenzo Librandi, <a href="/A009791/b009791.txt">Table of n, a(n) for n = 0..100</a>
%e tanh(sin(sin(x))) = x - 4/3!*x^3 + 68/5!*x^5 - 2584/7!*x^7 +- ...
%t With[{nn=30},Take[CoefficientList[Series[Tanh[Sin[Sin[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Apr 17 2014 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Apr 17 2014
|
