- 注册时间
- 2008-11-26
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 149502
- 在线时间
- 小时
|
楼主 |
发表于 2020-8-31 12:06:07
|
显示全部楼层
- FindGroupOrder := function (p, sigma)
- K := GF(p);
- v := K ! (4*sigma);
- u := K ! (sigma^2-5);
- x := u^3;
- b := 4*x*v;
- a := (v-u)^3*(3*u+v);
- A := a/b-2;
- x := x/v^3;
- b := x^3 + A*x^2 + x;
- E := EllipticCurve([0,b*A,0,b^2,0]);
- return FactoredOrder(E);
- end function;
- p:=148296291984475077955727317447564721950969097;
- sigma:=1604840403;
- FindGroupOrder(p,sigma);
复制代码
分解质因数,得到:
[ <2, 7>, <3, 2>, <373, 1>, <3673, 1>, <40927, 1>, <96097, 1>, <661883, 1>, <1179109, 1>, <1260317, 1>, <24289207, 1> ] |
|