login
This site is supported by donations to The OEIS Foundation.

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A113921 Series expansion of elliptical invariant for the tetrahedron to 30 powers. 0
1, 432, 46656, 2561328, 98724096, 3095854128, 84653066304, 2099959707312, 48434918630400, 1055774529946800, 21998459314138176, 441781752631617072, 8604022581526507776, 163280569502277507888, 3030565281106746286656 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

REFERENCES

Elliptic Curves, McKean and Moll, 1997, Cambridge University Press, page 22

LINKS

Table of n, a(n) for n=0..14.

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: A223688 A228105 A232905 * A047804 A008691 A193141

Adjacent sequences:  A113918 A113919 A113920 * A113922 A113923 A113924

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Jan 29 2006

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified April 19 00:07 EDT 2014. Contains 240735 sequences.