搜索: 编号:a071615
|
|
|
|
7, 17, 15, 19, 5, 43, 1, 19, 5, 17, 7, 167, 1, 11, 3, 19, 1, 67, 1, 17, 17, 7, 5, 211, 1, 7, 11, 13, 3, 139, 1, 31, 9, 1, 5, 109, 1, 1, 3, 85, 3, 61, 1, 11, 1, 7, 1, 211, 1, 11, 5, 7, 3, 31, 5, 31, 1, 13, 1, 353, 1, 1, 9, 31, 3, 71, 1, 5, 3, 19, 1, 317, 1, 5, 3, 1, 1, 31, 1, 167, 7, 7, 5
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
n=5:invphi(10k)中的项数为2,5,2,9,0,9,。。。对于k=1,2,3,。。。;a(5)=5,因为0出现在第5位。
|
|
MAPLE公司
|
带有(数字理论);a:=proc(n)局部m;对于1中的m,如果(invphi(2*n*m)=[]),则返回m end-end-end
|
|
数学
|
invphi[n_,plist_]:=模块[{i,p,e,pe,val},如果[plist=={},返回[If[n==1,{1},{}]];val={};p=最后[plist];对于[e=0;pe=1,e==0||Mod[n,(p-1)pe/p]==0,e++;pe*=p,val=Join[val,pe*invphi[If[e==0,n,n*p/pe/(p-1)],Drop[plist,-1]]];排序[val]];invphi[n_]:=invphi[n,选择[1+除数[n],素数Q]];a[n_]:=对于[m=1,True,m++,如果[invphi[2n*m]=={},返回[m]](*invphi[n,plist]是x的列表,其中phi(x)=n和plist中x的所有素数除数。*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.003秒内完成
|