> p := 100000000000000000039;
> k := GF(p);
> E := EllipticCurve([k|0, 0, 0, 100000000000000000038, 0]);
> #E;
100000000000000000040
> Factorization(#E);
[ <2, 3>, <5, 1>, <7, 1>, <41, 1>, <53, 1>, <164354743277891, 1> ]
> P := E![10, 33675076078257395357];
> Order(P);
12500000000000000005
> Factorization(Order(P));
[ <5, 1>, <7, 1>, <41, 1>, <53, 1>, <164354743277891, 1> ]
> k;
Finite field of size 100000000000000000039