%I A115052
%S A115052 1,6,21,54,108,162,135,162,1053,2916,5832,8748,8019,4374,41553,118098,
%T A115052 236196,354294,334611,118098,1476225,4251528,8503056,12754584,12223143
%N A115052 q=1 coefficient expansion of hierarchical lattice renormalization polynomial.
%D A115052 The Beauty of Fractals, Springer-Verlag, New York, 1986, editors Peitgen 
               and Richter, pages 146
%F A115052 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
%t A115052 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}]]}]
%Y A115052 Sequence in context: A069778 A015644 A067680 this_sequence A025203 A002817 
               A132366
%Y A115052 Adjacent sequences: A115049 A115050 A115051 this_sequence A115053 A115054 
               A115055
%K A115052 nonn,uned
%O A115052 0,2
%A A115052 Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 28 2006