|
|
A115054
|
|
G.f.: (x^3+6*x+2)^2/(x^2+x+1)^2.
|
|
0
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
q=3 coefficient expansion of hierarchical lattice renormalization polynomial.
Auto-convolution of the sequence 2,4,-6,3,3,-6,3,3,.. (period length 3). [From R. J. Mathar, Mar 09 2009]
|
|
REFERENCES
|
Peitgen and Richter, The Beauty of Fractals, Springer-Verlag, New York, 1986, page 146
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|