login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

sech(arctan(sin(x)))=1-1/2!*x^2+17/4!*x^4-721/6!*x^6+58337/8!*x^8...
2

%I #6 Jun 06 2018 15:11:27

%S 1,-1,17,-721,58337,-7657441,1482169457,-396854618161,140415423261377,

%T -63432792091634881,35619694647751942097,-24334169873267896659601,

%U 19872330538404158435859617

%N sech(arctan(sin(x)))=1-1/2!*x^2+17/4!*x^4-721/6!*x^6+58337/8!*x^8...

%t With[{nn=30},Take[CoefficientList[Series[Sech[ArcTan[Sin[x]]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 06 2018 *)

%K sign

%O 0,3

%A Patrick Demichel (patrick.demichel(AT)hp.com)