A009636 Expansion of tan(log(1+log(1+x))).

0, 1, -2, 9, -59, 504, -5284, 65510, -936298, 15143182, -273248976, 5439702914, -118392773322, 2796058524492, -71201990804372, 1944545286662376, -56688882983623352, 1756963601887874632, -57683888928277239984

Offset

0,3

Links

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

Example

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

Mathematica

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

Crossrefs

Sequence in context: A346519 A151616 A199543 * A156272 A366240 A363390

Adjacent sequences: A009633 A009634 A009635 * A009637 A009638 A009639

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved