|
%I #4 Mar 30 2012 17:34:20
%S 1,432,46656,2561328,98724096,3095854128,84653066304,2099959707312,
%T 48434918630400,1055774529946800,21998459314138176,441781752631617072,
%U 8604022581526507776,163280569502277507888,3030565281106746286656
%N Series expansion of elliptical invariant for the tetrahedron to 30 powers.
%D Elliptic Curves, McKean and Moll, 1997, Cambridge University Press, page 22
%F b(n)=coefficient expansion of (x^4 - 2*I*Sqrt[3]*x^2 + 1)^3/(x^4 + 2*I*Sqrt[3]*x^2 + 1)^3, a(n) = Abs[b(n)*b(n)]
%t b = Flatten[{{1}, Table[Coefficient[Series[(x^4 - 2*I*Sqrt[3]*x^2 + 1)^3/(x^4 + 2*I*Sqrt[3]*x^2 + 1)^3, {x, 0, 30}], x^n], {n, 1, 30}]}] a = Table[Abs[b[[n]]*b[[n]]], {n, 1, Length[b]}]
%K nonn
%O 0,2
%A _Roger L. Bagula_, Jan 29 2006
|
