A024272 E.g.f. tan(x)*sinh(x)/2 (even powers only).

0, 1, 6, 71, 1596, 58141, 3109986, 229395011, 22312837176, 2767173538681, 426167405495166, 79796244279937151, 17851790220732115956, 4702787739658825158421, 1440911869083478804851546, 508062238427253843822090491, 204262590490127231070131373936, 92884219961086104169154295141361

Offset

0,3

Links

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

Mathematica

With[{nn = 50}, Take[CoefficientList[Series[Tan[x]*Sinh[x]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* G. C. Greubel, Apr 12 2017 *)

Prog

(PARI) x='x+O('x^66); v=Vec(serlaplace(tan(x)*sinh(x)/2)); concat([0], vector(#v\2, n, v[2*n-1])) \\ Joerg Arndt, Apr 26 2013

Crossrefs

A009747.

Sequence in context: A187651 A357141 A005981 * A167813 A242232 A259139

Adjacent sequences: A024269 A024270 A024271 * A024273 A024274 A024275

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested 03/97.

Status

approved