/*
Elliptic curves downloaded from the LMFDB downloaded on 05 December 2021.
Below is a list called data. Each entry has the form:
[*[*field_poly*],[*Weierstrass Coefficients, constant first in increasing degree*]*]
*/
P := PolynomialRing(Rationals());
data := [*\
[*[*x^2 - x - 51*], [*[*1,1*],[*0,0*],[*0,0*],[*-8542,-1286*],[*-262129,-39368*]*]*],\
[*[*x^2 - x - 51*], [*[*1,0*],[*1,0*],[*1,0*],[*-10,0*],[*-10,0*]*]*]*]
;