%I #22 Jun 13 2015 00:52:02
%S 0,9,-48,208,-816,3024,-10800,37584,-128304,431568,-1434672,4723920,
%T -15431472,50073552,-161558064,518686416,-1658095920,5280397776,
%U -16759523376,53033560272,-167365651248,526891865040,-1655060329008,5188335188688,-16234468171056,50711792328144
%N Series expansion of x*(x+3)^2/(3*x+1)^2.
%C Expansion of q=2 hierarchical lattice renormalization polynomial.
%D Peitgen and Richter, eds., The Beauty of Fractals, Springer-Verlag, New York, 1986, page 146.
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (-6,-9).
%F For n>1, a(n) = 16 * (4n+1) * (-3)^(n-3). - _Ralf Stephan_, Jul 19 2013
%t 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 sign
%O 0,2
%A _Roger L. Bagula_, Feb 28 2006
%E Edited by _N. J. A. Sloane_, Dec 31 2006
|