Search: id:A109590 Results 1-1 of 1 results found. %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 Search completed in 0.001 seconds