|
Search: id:A115053
|
|
|
| A115053 |
|
Series expansion of x*(x+3)^2/(3*x+1)^2. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
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 this_sequence A073584 A007037 A072461
Adjacent sequences: A115050 A115051 A115052 this_sequence A115054 A115055 A115056
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 28 2006
|
|
EXTENSIONS
|
Edited by njas, Dec 31 2006
|
|
|
Search completed in 0.002 seconds
|
