

A013101


Expansion of sec(arcsinh(x) + tan(x)) (coefficients of even powers only).


1



1, 4, 88, 5014, 527624, 89331514, 22153827556, 7576868616438, 3416549387012336, 1964348168375260594, 1402481265951220466076, 1217416473808119071396046, 1262628491065344385303595816
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS



EXAMPLE

1 + (4/2!)*x^2 + (88/4!)*x^4 + (5014/6!)*x^6 + (527624/8!)*x^8 + ...


MATHEMATICA

With[{nn=30}, Take[CoefficientList[Series[Sec[ArcSinh[x]+Tan[x]], {x, 0, nn}], x] Range[0, nn]!, {1, 1, 2}]] (* Harvey P. Dale, Nov 24 2017 *)


PROG

(PARI) first(n) = { x='x+O('x^(2*n2)); vecextract(Vec(serlaplace(1/cos(asinh(x)+tan(x)))), sum(i=0, n1, 2^(2*i))); } \\ Iain Fox, Nov 26 2017


CROSSREFS



KEYWORD

nonn


AUTHOR

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


STATUS

approved



