显示1-1个结果(共1个)。
第页1
2, 1, 13, 5, 11, 7, 1093, 41, 757, 61, 23, 73, 797161, 547, 4561, 17, 1871, 19, 1597, 1181, 368089, 67, 47, 6481, 8951, 398581, 109, 29, 59, 31, 683, 21523361, 2413941289, 103, 71, 530713, 13097927, 2851, 313, 42521761, 83, 43, 431, 5501, 181, 23535794707
MAPLE公司
a: =proc(n)局部f,p;
f: =数量理论:-因子集(3^n-1);
对于p in f do
如果numtheory:-order(3,p)=n,则返回p fi
日期:
1
结束过程:
数学
p=2;t=表[0,{100}];而[p<100000001,a=乘数阶[3,p];如果[0<a<101&&t[[a]]==0,t[[a]]=p;打印[{a,p}]];p=NextPrime@p];t吨(*罗伯特·威尔逊v,2014年10月13日*)
搜索在0.004秒内完成
|