# Elliptic curves downloaded from the LMFDB downloaded on 24 October 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,0],[1,0],[1,0],[-131,0],[-650,0]]],\
[[x^2 - x + 1], [[0,0],[0,-1],[1,0],[1,-1],[0,0]]],\
[[x^2 - x + 1], [[0,0],[0,-1],[1,0],[-9,9],[1,0]]],\
[[x^2 - x + 1], [[0,0],[0,-1],[1,0],[-459,509],[1976,-4730]]],\
[[x^2 - x + 1], [[0,0],[0,-1],[1,0],[-509,459],[-2754,4730]]]]