OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A125646号 最小奇素数基数q,使得p^5除以q^(p-1)-1,其中p=素数(n)。 12
97, 487, 14557, 32261, 275393, 220861, 15541, 2342959, 1051847, 24639193, 40373093, 70697317, 31851901, 47289133, 456330179, 10000453, 154075723, 130702609, 304154189, 143584109, 183298237, 79451167, 1058782027, 352845203, 567620413, 4592184511, 5890772963, 9651540247, 4081988041, 4772484029 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
罗伯特·伊斯雷尔,n=1..500时的n,a(n)表
W.Keller和J.Richstein,可被p整除的费马商.
枫木
f: =proc(n)局部p,k,j,q,R;
p: =ithprime(n);
R: =排序(映射(rhs@操作,[msolve(q^(p-1)-1,p^5)]);
对于0中的k do
对于R do中的j
q: =k*p^5+j;
如果isprime(q),则返回q-fi;
结束进程:
地图(f,[1..100]美元)#罗伯特·伊斯雷尔2019年4月11日
数学
Do[p=素数[n];q=2;而[PowerMod[q,p-1,p^5]!=1,q=下一素数[q]];打印[q],{n,100}](*瑞恩·普罗珀2007年3月31日*)
黄体脂酮素
(PARI){a(n)=局部(p,x,y);如果(n==1,返回(97));p=素数(n);x=znprimroot(p^5)^(p^4);vecsort(向量(p-1,i,y=升力(x^i);while(!isprime(y),y+=p^5;y))[1]\\马克斯·阿列克塞耶夫2007年5月30日
(Python)
从itertools导入计数
从sympy导入nthroot_mod,isprime,prime
定义A125646号(n) :
m=(p:=素数(n))**5
r=已排序(nthroot_mod(1,p-1,m,all_roots=True))
对于计数(0,m)中的i:
对于英寸:
如果是素数(i+a):返回i+a#柴华武2024年5月2日
交叉参考
关键词
非n
作者
扩展
更多术语来自瑞恩·普罗珀2007年3月31日
更多术语来自马克斯·阿列克塞耶夫2007年5月30日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月14日06:51。包含373393个序列。(在oeis4上运行。)