A009654 Expansion of e.g.f.: tan(log(1+x)/exp(x)).

0, 1, -3, 10, -60, 535, -5545, 65182, -880992, 13534757, -231683143, 4360580794, -89533557212, 1992568741579, -47774231187709, 1227455840670542, -33641659053337888, 979722562830640169, -30211554791018748267

Offset

0,3

Links

Table of n, a(n) for n=0..18.

Mathematica

With[{nn=20}, CoefficientList[Series[Tan[Log[1+x]/Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 07 2016 *)

Crossrefs

Sequence in context: A245312 A018932 A111562 * A013565 A156075 A330624

Adjacent sequences: A009651 A009652 A009653 * A009655 A009656 A009657

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jan 07 2016

Status

approved