|
%I #22 Jun 22 2015 22:45:40
%S 0,1,-1,7,-24,215,-1515,16721,-176568,2363165,-32662125,521810859,
%T -8824531056,165050184611,-3283420714119,70591429387077,
%U -1610563051907280,39183483858949049,-1007242998864835257
%N Expansion of tan(log(1+x)/cos(x)).
%H Vincenzo Librandi, <a href="/A009652/b009652.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=20}, CoefficientList[Series[Tan[Log[1+x]/Cos[x]], {x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Feb 05 2012 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
