|
Search: id:A115054
|
|
|
| A115054 |
|
G.f.: (x^3+6*x+2)^2/(x^2+x+1)^2. |
|
+0
1
|
|
| 4, 16, -8, -36, 72, -36, -63, 126, -63, -90, 180, -90, -117, 234, -117, -144, 288, -144, -171, 342, -171, -198, 396, -198, -225, 450, -225, -252, 504, -252, -279, 558, -279, -306, 612, -306, -333, 666, -333, -360, 720, -360, -387, 774, -387, -414, 828, -414, -441, 882, -441, -468, 936, -468, -495, 990, -495
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
q=3 coefficient expansion of hierarchical lattice renormalization polynomial.
|
|
REFERENCES
|
Peitgen and Richter, The Beauty of Fractals, Springer-Verlag, New York, 1986, page 146
|
|
MAPLE
|
G:=(x^3+6*x+2)^2/(x^2+x+1)^2: Gser:=series(G, x=0, 55): seq(coeff(Gser, x, n), n=0..50);
|
|
MATHEMATICA
|
q=3 b = 9*Flatten[{{4/9}, 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}]]}]
|
|
CROSSREFS
|
Sequence in context: A040004 A050080 A110651 this_sequence A049208 A061093 A067178
Adjacent sequences: A115051 A115052 A115053 this_sequence A115055 A115056 A115057
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 28 2006
|
|
EXTENSIONS
|
Edited by njas, Apr 16 2006
|
|
|
Search completed in 0.002 seconds
|
