%I A109590
%S A109590 0,2,2,3,24,30,1584,18648,417024,9009792,234809280,6704112096,213138355968,
%T A109590 7406611617600,280001933761536,11429619375628800,501128794469154816,
%U A109590 23484526696292281344,1171437744670467637248,61965733479803762540544
%V A109590 0,-2,-2,-3,-24,30,-1584,18648,-417024,9009792,-234809280,6704112096,-213138355968,
%W A109590 7406611617600,-280001933761536,11429619375628800,-501128794469154816,
%X A109590 23484526696292281344,-1171437744670467637248,61965733479803762540544
%N A109590 E.g.f.: 3x/(-1+1/(-1+1/(-1+log(1+3x)))) = -3x[2-log(1+3x)]/[3-2log(1+x)].
%D A109590 C. Q. He and M. L. Lapidus, Generalized Minkowski content, spectrum of 
               fractal drums, fractal strings and the Riemann zeta-function, Mem. 
               Amer. Math. Soc. 127 (1997), no. 608, x+97 pp.
%p A109590 G:=3*x/(-1+1/(-1+1/(-1+log(1+3*x)))): Gser:=series(G,x=0,24): 0,seq(n!*coeff(Gser,
               x^n),n=1..21); # yields the signed sequence
%t A109590 g[x_] = x/(-1 + 1/(-1 + 1/(-1 + Log[1 + x]))) h[x_, n_] = Dt[g[x], {x, 
               n}]; a[x_] = Table[h[x, n]*2^n, {n, 0, 25}]; b = a[0] Abs[b]
%Y A109590 Sequence in context: A113604 A084745 A036503 this_sequence A074935 A078239 
               A083113
%Y A109590 Adjacent sequences: A109587 A109588 A109589 this_sequence A109591 A109592 
               A109593
%K A109590 sign
%O A109590 0,2
%A A109590 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 29 2005