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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 29 2006
STATUS
approved