|
Search: id:A113921
|
|
|
| A113921 |
|
Series expansion of elliptical invariant for the tetrahedron to 30 powers. |
|
+0
1
|
|
| 1, 432, 46656, 2561328, 98724096, 3095854128, 84653066304, 2099959707312, 48434918630400, 1055774529946800, 21998459314138176, 441781752631617072, 8604022581526507776, 163280569502277507888, 3030565281106746286656
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
REFERENCES
|
Elliptic Curves, McKean and Moll, 1997, Cambridge University Press, page 22
|
|
FORMULA
|
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)]
|
|
MATHEMATICA
|
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]}]
|
|
CROSSREFS
|
Sequence in context: A006910 A015229 A109123 this_sequence A047804 A008691 A051964
Adjacent sequences: A113918 A113919 A113920 this_sequence A113922 A113923 A113924
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 29 2006
|
|
|
Search completed in 0.002 seconds
|
