A009419 Expansion of log(1+x)*exp(tan(x)).

0, 1, 1, 2, 8, 29, 141, 846, 4472, 39969, 218881, 2810290, 14610320, 280561709, 1153474973, 38655408078, 73062816912, 7216310776161, -11521981477983, 1796944146688834, -11006978325918280, 585629030872958429

Offset

0,4

Links

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

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * exp(-tan(1)). - Vaclav Kotesovec, Jan 23 2015

Mathematica

Log[ 1+x ]*Exp[ Tan[ x ] ]
CoefficientList[Series[E^Tan[x]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Crossrefs

Sequence in context: A150758 A185033 A287045 * A000162 A052437 A131318

Adjacent sequences: A009416 A009417 A009418 * A009420 A009421 A009422

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved