login

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

E.g.f.: sec(sec(x)*sinh(x))=1+1/2!*x^2+21/4!*x^4+837/6!*x^6+60585/8!*x^8...
0

%I #6 Aug 19 2012 17:01:18

%S 1,1,21,837,60585,7048489,1201350909,282008557677,87244033155153,

%T 34402407033544657,16843665951415524837,10025536600336492439061,

%U 7129473645057562412172537,5969969671887834658217008633

%N E.g.f.: sec(sec(x)*sinh(x))=1+1/2!*x^2+21/4!*x^4+837/6!*x^6+60585/8!*x^8...

%t With[{nn=30},Take[CoefficientList[Series[Sec[Sec[x]Sinh[x]],{x,0,nn}],x]Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Aug 19 2012 *)

%K nonn

%O 0,3

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

%E Definition clarified by _Harvey P. Dale_, Aug 19 2012