# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a115053 Showing 1-1 of 1 %I A115053 #22 Jun 13 2015 00:52:02 %S A115053 0,9,-48,208,-816,3024,-10800,37584,-128304,431568,-1434672,4723920, %T A115053 -15431472,50073552,-161558064,518686416,-1658095920,5280397776, %U A115053 -16759523376,53033560272,-167365651248,526891865040,-1655060329008,5188335188688,-16234468171056,50711792328144 %N A115053 Series expansion of x*(x+3)^2/(3*x+1)^2. %C A115053 Expansion of q=2 hierarchical lattice renormalization polynomial. %D A115053 Peitgen and Richter, eds., The Beauty of Fractals, Springer-Verlag, New York, 1986, page 146. %H A115053 Index entries for linear recurrences with constant coefficients, signature (-6,-9). %F A115053 For n>1, a(n) = 16 * (4n+1) * (-3)^(n-3). - _Ralf Stephan_, Jul 19 2013 %t A115053 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] %K A115053 sign %O A115053 0,2 %A A115053 _Roger L. Bagula_, Feb 28 2006 %E A115053 Edited by _N. J. A. Sloane_, Dec 31 2006 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE