FindLocalAB:=func<a, p| [[a,b] : a in GF(p), b in GF(p) | IsEllipticCurve([a,b]) and #EllipticCurve([a,b]) eq a(p)]>;

FindLocalABs:=func<a, plist| [FindLocalAB(a(p), p) : p in plist]>;



