A012397 Expansion of e.g.f. sin(arctan(x) * log(x+1)).

0, 0, 2, -3, 0, -10, 88, 336, -5040, 5256, -39168, 4557960, -52889760, 157744080, -3302278800, 144206160840, -1889577930240, 8430486227520, -277909168727040, 12092516753915520, -180143306775855360, 1024522489518595200, -48298987852867664640, 2290850071901137232640

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Example

2/2!*x^2 - 3/3!*x^3 - 10/5!*x^5 + 88/6!*x^6 ...

Mathematica

Range[0, 25]! CoefficientList[Series[Sin[ArcTan[x] Log[x+1]], {x, 0, 25}], x] (* Vincenzo Librandi, Jul 19 2018 *)

Prog

(PARI) x = 'x + O('x^30); concat([0, 0], Vec(serlaplace(sin(atan(x) * log(x+1))))) \\ Michel Marcus, Jul 19 2018

Crossrefs

Sequence in context: A111606 A012653 A012656 * A012402 A177700 A012654

Adjacent sequences: A012394 A012395 A012396 * A012398 A012399 A012400

Keyword

sign

Author

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

Extensions

a(0) and a(1) inserted and title improved by Sean A. Irvine, Jul 18 2018

Status

approved