A013120 Expansion of e.g.f. tan(tanh(x) + log(x+1)).

0, 2, -1, 16, -54, 612, -4710, 57944, -683144, 10015344, -154359720, 2701047424, -50673755088, 1040194570144, -22870244075952, 540441764640064, -13599312731310720, 363949691199176448, -10307618997050443392

Offset

0,2

Links

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

Example

2*x - 1/2!*x^2 + 16/3!*x^3 - 54/4!*x^4 + 612/5!*x^5 ...

Mathematica

With[{nn=20}, CoefficientList[Series[Tan[Tanh[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 22 2022 *)

Crossrefs

Sequence in context: A012967 A013121 A012963 * A012968 A266827 A316226

Adjacent sequences: A013117 A013118 A013119 * A013121 A013122 A013123

Keyword

sign

Author

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

Extensions

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

Status

approved