A013282 Expansion of e.g.f.: sin(log(x+1) - tanh(x)).

0, 0, -1, 4, -6, 8, -105, 572, 700, -18800, 50715, -903388, 31286574, -466481992, 5285891611, -81297834980, 1566498967800, -27364241296480, 457841251437399, -8635414723705660, 179513823574755490, -3746483398412176664, 79423193110930596543, -1794737225880978532228

Offset

0,4

Links

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

Example

-(1/2!)*x^2 + (4/3!)*x^3 - (6/4!)*x^4 + (8/5!)*x^5 - ...

Mathematica

With[{nn=30}, Drop[CoefficientList[Series[Sin[Log[x+1]-Tanh[x]], {x, 0, nn}], x]Range[0, nn]!, 2]] (* Harvey P. Dale, May 20 2012 *)

Crossrefs

Sequence in context: A013285 A013289 A013288 * A013287 A013283 A013284

Adjacent sequences: A013279 A013280 A013281 * A013283 A013284 A013285

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition clarified by Harvey P. Dale, May 20 2012

a(0)=a(1)=0 inserted by Sean A. Irvine, Aug 03 2018

Status

approved