A009228 Expansion of e.g.f.: exp(sinh(x)*cos(x)).

1, 1, 1, -1, -7, -23, -23, 135, 1297, 4785, 6129, -102353, -894903, -4499623, -829671, 167774711, 1879275169, 9259741409, -1886150559, -697193437985, -7580265762535, -45391655836087, 85001467923145, 4778091975791591, 61409100961369265, 356972130348630673

Offset

0,5

Links

Alois P. Heinz, Table of n, a(n) for n = 0..200

Maple

a:= n-> n! *coeff(series(exp(sinh(x)*cos(x)), x, n+1), x, n):
seq (a(n), n=0..30);  # Alois P. Heinz, Aug 22 2012

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Sinh[x]*Cos[x]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Aug 22 2012 *)

Crossrefs

Sequence in context: A121815 A025172 A115023 * A249438 A349230 A031450

Adjacent sequences: A009225 A009226 A009227 * A009229 A009230 A009231

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified by Harvey P. Dale, Aug 22 2012

Status

approved