A009499 Expansion of e.g.f. = sin(tan(log(1+x))).

0, 1, -1, 3, -12, 56, -300, 1544, -4592, -74068, 2546820, -58043956, 1226919936, -25894069928, 560051913512, -12549128097416, 292671937925760, -7117106442114544, 180518194901004912, -4773533330473419152

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Tan[Log[1+x]]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Aug 10 2012 *)

Crossrefs

Sequence in context: A369600 A027390 A349513 * A009656 A020016 A001277

Adjacent sequences: A009496 A009497 A009498 * A009500 A009501 A009502

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 10 2012

Status

approved