A013246 E.g.f.: sin(log(x+1)-arctan(x)) = -1/2!*x^2+4/3!*x^3-6/4!*x^4-105/6!*x^6...

0, 0, -1, 4, -6, 0, -105, 1020, 700, -48160, -29925, 2852100, 39624750, -990132000, 2798670875, 35779061500, 2042289483000, -56002989432000, 277252662828375, 1348783879306500, 236532018033561250

Offset

0,4

Links

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

Mathematica

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

Crossrefs

Sequence in context: A111828 A013249 A013253 * A013252 A013251 A013247

Adjacent sequences: A013243 A013244 A013245 * A013247 A013248 A013249

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Aug 16 2012

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

Status

approved