A009318 Expansion of log(1+log(1+x))/exp(x).

0, 1, -4, 16, -79, 498, -3903, 36727, -403548, 5071441, -71752592, 1128768188, -19545504383, 369430614902, -7568453115871, 167056552799575, -3952337703492608, 99774721152384553, -2676963889524158084

Offset

0,3

Links

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

INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 172

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A221763 A362750 A356406 * A081682 A068788 A094013

Adjacent sequences: A009315 A009316 A009317 * A009319 A009320 A009321

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous incorrect Mathematica program deleted by Harvey P. Dale, Apr 24 2023

Status

approved