A113919 Series expansion of elliptical invariant for the dodecahedron to 30 powers.

1, 196877, 22479658, 1086367744, 35319433658, 914121624578, 20399529974480

Offset

0,2

References

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

Links

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

Formula

b(n) = coefficient expansion of (-x^20 + 228*x^15 - 495*x^10 - 228*x^5 - 1)^3/(1728*x^5*(x^10 + 11*x^5 - 1)^5), a(n) = 1728*b(n)

Mathematica

b = 1728*Flatten[{{1/1728}, Table[Coefficient[Series[(-x^20 + 228*x^15 - 495*x^10 - 228*x^5 - 1)^3/(1728*x^5*(x^10 + 11*x^5 - 1)^5), {x, 0, 30}], x^n], {n, 1, 30}]}]

Crossrefs

Sequence in context: A024211 A204943 A345657 * A001379 A247242 A014708

Adjacent sequences: A113916 A113917 A113918 * A113920 A113921 A113922

Keyword

nonn

Author

Roger L. Bagula, Jan 29 2006

Status

approved