|
Search: id:A115052
|
|
|
| A115052 |
|
q=1 coefficient expansion of hierarchical lattice renormalization polynomial. |
|
+0
2
|
|
| 1, 6, 21, 54, 108, 162, 135, 162, 1053, 2916, 5832, 8748, 8019, 4374, 41553, 118098, 236196, 354294, 334611, 118098, 1476225, 4251528, 8503056, 12754584, 12223143
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
REFERENCES
|
The Beauty of Fractals, Springer-Verlag, New York, 1986, editors Peitgen and Richter, pages 146
|
|
FORMULA
|
a(n) = Starting at x^6 coefficients of ((x^3 + 3*(q - 1)*x + (q - 1)*(q - 2))/(3* x^2 + 3*(q - 2)*x + q^2 - 3*q + 3))^2
|
|
MATHEMATICA
|
q=1 b = 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}]]}]
|
|
CROSSREFS
|
Sequence in context: A069778 A015644 A067680 this_sequence A025203 A002817 A132366
Adjacent sequences: A115049 A115050 A115051 this_sequence A115053 A115054 A115055
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 28 2006
|
|
|
Search completed in 0.002 seconds
|
