#来自在线整数序列百科全书的问候!http://oeis.org/搜索:id:a033948显示第1-1页,共1页%一A033948%S A033948 1,2,3,4,5,6,7,9,10,11,13,14,17,18,19,22,23,25,26,27,29,31,34,37,38,%电话A033948 41,43,46,47,49,50,53,54,58,59,61,62,67,71,73,74,79,81,82,83,86,89,94,%电话:A033948 97,98101103106107109113118121122125127131134137139%nA033948具有本原根的数(乘法群模N是循环的)。%cA033948序列由1、2、4和形式为p^i和2p^i的数组成,其中p是奇素数,i>=1。%cA033948序列给出了n的值,使得x^2==1(mod n)没有1<x<n-1的解_Benoit Cloitre_年1月4日%cA033948序列项的高斯准则:n在序列中iff乘积{1<=i<=n-1,gcd(i,n)=1}i==-1(mod n),参见示例。-_弗拉基米卢耶夫2011年1月11日%C A033948上述标准见Hardy和Wright参考文献,定理129。p。102,鲍尔定理的一个结果。另见T.D.Noeé关于A060594和A160377的评论_2012年2月16日%C A033948也对n进行了编号,使得phi(n)=lambda(n)(或A034380(n)=1的数字),其中phi为A000010,lambda为Carmichael的lambda:A002322_恩里克·佩雷斯·赫雷罗,2013年6月4日%C A033948当n*j+1为平方,0<=j<n,即j={0,n-2}时,给出n>2的所有值。参见Mathematica示例。-_Richard R.Forberg,2016年3月26日%cA033948数n,使得具有n个单位根的分圆域的Galois群是一个循环群。【范德瓦尔登,第55页,第4.11条;科尔温,1967年】——N.J.A.斯隆,2016年11月26日%D A033948 G.H.Hardy和E.M.Wright,《数论导论》,第五版,克拉伦登出版社,牛津,2003年,定理129,p。102%D A033948 I.Niven和H.S.Zuckerman,《数论导论》,第4版,第62页,定理2.25。%D A033948 B.L.范德瓦尔登,现代代数,第二。ed.,Ungar,NY,第一卷,1948年。%H A033948 T.D.无,n=1..10000的n,a(n)表%H A033948匿名,数论注记:本原根[断开的链接]%H A033948约格·阿恩特,计算问题(Fxtbook),第页。778%H A033948 L.J.科尔温,对每个p因子mod p的整数上的不可约多项式扫描的备忘录[1967年9月7日贝尔实验室未出版]%H A033948数学参考项目,本原根%H A033948埃里克·韦斯坦的数学世界,本原根%H A033948埃里克·韦斯坦的数学世界,模乘群%H A033948钨研究,素根%e A033948 n=9的高斯积为1*2*4*5*7*8=2240。因为2240==-1(mod 9),那么9在序列中。-_弗拉基米尔·谢韦列夫,2011年1月11日%p A033948 m:=过程(n)局部k,r;r:=1;如果n=2,则返回false fi;%p A033948,k从1到n do如果igcd(n,k)=1,则r:=modp(r*k,n)fi od;r端:%p A033948选择(n->m(n)<>1,[$1..139])_Peter Luschny,2017年5月25日%t A033948 Join[{1},选择[Range[140],IntegerQ[PrimitiveRoot[#]]&]](*\u Jean-François AlcoverΜu,2011年9月27日*)%t A033948 Select[范围[139],EulerPhi[#]==CarmichaelLambda[#]&](*\u t.D.NoeŠ,2013年6月4日*)%t A033948结果={};Do[计数=0;%t A033948 Do[如果[Mod[j^2,n]==1,count++],{j,2,n-2}];%t A033948 If[count==0,AppendTo[result,n]],{n,1200}];结果(*Richard R.Forberg,2016年3月26日*)%t A033948结果={};Do[计数=0;%t A033948 Do[r=Sqrt[n*j+1];如果[IntegerQ[r],count++],{j,0,n}];%t A033948 If[count==2,AppendTo[result,n]],{n,0,200}];结果(*缺少{1,2}u Richard R.Forberg,2016年3月26日*)%o A033948(PARI)为(n)=如果(n%2,isprimepower(n)| | n==1,n==2 | n==4 |(isprimepower(n/2,&n)&&n>2))\\\ u Charles R Greathouse IV,2015年4月16日%Y A033948,参见A033949(补码)、A072209、A001783(V.Shevelev示例中使用的高斯乘积)。%Y A033948参见A002322、A060594、A062373、A034380、A160377。%Y A033948 1、2、4、A061345、A278568接头。%K A033948无%O A033948 1,2%A A033948,由朱德·麦克拉尼计算,由斯隆输入_#根据OEIS最终用户许可协议提供内容:http://oeis.org/LICENSE