# Elliptic curves downloaded from the LMFDB downloaded on 25 January 2021.
# Below is a list called data. Each entry has the form:
# [[field_poly],[Weierstrass Coefficients, constant first in increasing degree]]
R. = QQ[];
data = [ \
[[x^2 - x + 1], [[0,1],[-1,1],[0,1],[751,-1301],[-16530,10550]]],\
[[x^2 - x + 1], [[0,1],[-1,1],[0,1],[1,-1],[0,0]]],\
[[x^2 - x + 1], [[0,1],[-1,1],[0,1],[-9,14],[9,-3]]]]