|
| |
|
|
A115053
|
|
Series expansion of x*(x+3)^2/(3*x+1)^2.
|
|
0
| |
|
|
0, 9, -48, 208, -816, 3024, -10800, 37584, -128304, 431568, -1434672, 4723920, -15431472, 50073552, -161558064, 518686416, -1658095920, 5280397776, -16759523376, 53033560272, -167365651248, 526891865040, -1655060329008, 5188335188688, -16234468171056, 50711792328144
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Expansion of q=2 hierarchical lattice renormalization polynomial.
|
|
|
REFERENCES
| Peitgen and Richter, eds., The Beauty of Fractals, Springer-Verlag, New York, 1986, page 146.
|
|
|
MATHEMATICA
| q=2 b = Delete[Union[Flatten[{{0}, Abs[Table[Coefficient[Series[(( x^3 + 3*(q - 1)*x + (q - 1)*(q - 2))/(3*x^2 + 3*(q - 2)*x + q^2 - 3*q + 3))^2, {x, 0, 30}], x^n], {n, 1, 30}]]}]], 1]
|
|
|
CROSSREFS
| Sequence in context: A018984 A055582 A054460 * A171011 A073584 A007037
Adjacent sequences: A115050 A115051 A115052 * A115054 A115055 A115056
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 28 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Dec 31 2006
|
| |
|
|
