A013298 cos(log(x+1)-arctanh(x))=1-3/4!*x^4-90/6!*x^6-4515/8!*x^8...

1, 0, -3, -90, -4515, -359100, -42047775, -6839182350, -1478380278375, -410407616619000, -142401495047686875, -60416785362985301250, -30781865895322663996875, -18550414761518537710312500

Offset

0,3

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[Log[x+1]-ArcTanh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Mar 17 2019 *)

Crossrefs

Sequence in context: A097235 A047686 A013304 * A013302 A013303 A166334

Adjacent sequences: A013295 A013296 A013297 * A013299 A013300 A013301

Keyword

sign

Author

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

Status

approved