A013284 tan(log(x+1)-tanh(x)) = -1/2!*x^2+4/3!*x^3-6/4!*x^4+8/5!*x^5... .

-1, 4, -6, 8, -150, 1832, -16520, 134752, -1207080, 15001952, -227853648, 3403403456, -49799942192, 785688306496, -14001828147840, 271414904202752, -5476099665426048, 114256690024953344, -2506464470623466240, 58420826002735436800, -1436588695545973880064

Offset

2,2

Links

Alois P. Heinz, Table of n, a(n) for n = 2..200

Mathematica

With[{nn=20}, Drop[CoefficientList[ Series[Tan[Log[x+1]-Tanh[x]], {x, 0, nn}], x]Range[0, nn]!, 2]] (* Harvey P. Dale, Nov 23 2012 *)

Crossrefs

Sequence in context: A013282 A013287 A013283 * A013290 A095211 A141569

Adjacent sequences: A013281 A013282 A013283 * A013285 A013286 A013287

Keyword

sign

Author

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

Status

approved