

A009038


Expansion of E.g.f. cos(sin(sinh(x))), even powers only.


1



1, 1, 1, 47, 1, 13409, 77441, 19836879, 535288319, 139742075329, 2263631905535, 1157041164813423, 85544399896958465, 10251042205544240161, 896378013566768664703, 524122354739233459190287
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,4


LINKS

G. C. Greubel, Table of n, a(n) for n = 0..250


MATHEMATICA

With[{nn=30}, Take[CoefficientList[Series[Cos[Sin[Sinh[x]]], {x, 0, nn}], x] Range[0, nn]!, {1, 1, 2}]] (* Harvey P. Dale, Jul 31 2016 *)


PROG

(PARI) x='x+O('x^60); v=Vec(serlaplace(cos(sin(sinh(x))))); vector(#v\2, n, v[2*n1]) \\ G. C. Greubel, Jul 22 2018


CROSSREFS

Sequence in context: A159446 A116328 A340550 * A051319 A065610 A320342
Adjacent sequences: A009035 A009036 A009037 * A009039 A009040 A009041


KEYWORD

sign


AUTHOR

R. H. Hardin


EXTENSIONS

Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Jul 31 2016


STATUS

approved



