%I #18 Jun 23 2015 22:04:40
%S 0,1,-1,-2,6,25,-165,-366,6188,5573,-294885,-813034,35950266,
%T -141917555,-1041102153,-22047494262,843256939320,-9500491668343,
%U 83224830490839,-2409782172431474,68273680978437710,-1275838005728358495
%N Expansion of sin(log(1+x)/cosh(x)).
%H Vincenzo Librandi, <a href="/A009466/b009466.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},CoefficientList[Series[Sin[Log[1+x]/Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Nov 10 2011 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
|