A012353 Expansion of e.g.f. arcsin(tan(x) * log(x+1)).

0, 0, 2, -3, 16, -50, 440, -2856, 30896, -291528, 3760768, -47794120, 742773920, -11810509776, 214335913584, -4059112319640, 84773616869376, -1860974227719872, 44081861972926464, -1097880401356246656, 29109695232734355712, -810074412297240074880

Offset

0,3

Links

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

Example

2/2!*x^2 - 3/3!*x^3 + 16/4!*x^4 - 50/5!*x^5 ...

Mathematica

With[{nn=30}, Drop[CoefficientList[Series[ArcSin[Tan[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!, 2]] (* Harvey P. Dale, Jul 01 2017 *)

Crossrefs

Sequence in context: A012698 A302611 A012355 * A012703 A012699 A012354

Adjacent sequences: A012350 A012351 A012352 * A012354 A012355 A012356

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