A012512 Expansion of e.g.f.: tan(sinh(x)*log(x+1))=2/2!*x^2-3/3!*x^3+12/4!*x^4-40/5!*x^5...

0, 0, 2, -3, 12, -40, 430, -3591, 37464, -373752, 4507738, -58823875, 870967460, -13719012528, 234072634822, -4250060142615, 82733999849648, -1710175098180496, 37504812533836722, -867602777991744483

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tan[Sinh[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 18 2016 *)

Crossrefs

Sequence in context: A012511 A012309 A012305 * A012516 A012306 A012312

Adjacent sequences: A012509 A012510 A012511 * A012513 A012514 A012515

Keyword

sign

Author

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

Extensions

First two terms prepended and definition clarified by Harvey P. Dale, Jan 18 2016

Status

approved