登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A241476号 最小正本原根g<prime(n)模素数(n),其中g-1是一个平方,如果不存在这样的数g,则为0。 8
1, 2, 2, 5, 2, 2, 5, 2, 5, 2, 17, 2, 17, 5, 5, 2, 2, 2, 2, 65, 5, 37, 2, 26, 5, 2, 5, 2, 10, 5, 65, 2, 5, 2, 2, 82, 5, 2, 5, 2, 2, 2, 101, 5, 2, 170, 2, 5, 2, 10, 5, 26, 37, 26, 5, 5, 2, 26, 5, 26, 5, 2, 5, 17, 10, 2, 37, 10, 2, 2, 5, 26, 10, 2, 2, 5, 2, 5, 17, 26 (列表图表参考历史文本内部格式)
抵消
1,2
评论
根据中的推测A239957型,a(n)应始终为正。
链接
Z.-W.孙,模素数本原根的新观察,arXiv预印本arXiv:1405.0290[math.NT],2014。
例子
a(4)=5,因为2^2+1=5是一个本原根模素数(4)=7,但0^1+1=1或1^1+1=2都不是一个本初根模素(4)=3。
数学
f[k_]:=k^2+1
dv[n_]:=除数[n]
Do[Do[If[Mod[f[k]^(Part[dv[Prime[n]-1],i]),Prime[n]]==1,Goto[aa]],{i,1,Length[dv[Prime[n]-1]]-1}];打印[n,“”,k^2+1];转到[bb];标签[aa];继续,{k,0,Sqrt[Prime[n]-2]}];打印[n,“”,0];标签[bb];继续,{n,1,80}]
黄体脂酮素
(PARI)ispr(n,p)=my(f=系数(p-1)[,1],m=Mod(n、p));对于(i=1,#f,如果(m^(p\f[i])==1,则返回(0));m^(p-1)==1
a(n)=我的(p=素数(n));对于(k=0,平方(p-2),如果(ispr(k^2+1,p),返回(k^2+1));0 \\查尔斯·格里特豪斯四世2014年5月1日
交叉参考
关键词
非n
作者
孙志伟2014年4月23日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月19日09:23。包含371782个序列。(在oeis4上运行。)