#来自在线整数序列百科全书的问候!http://oeis.org/; 搜索:id:a268616 展示1-1的1个1 ;%I a268616 %S a268616 1,2,2,2,3,2,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,7,5,5,3,3,2,2,2,5,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,6,3,7,7,6,3,5,2,6,5,3,3,2,5,17,10,2,3, %U a268616 10,2,2,3,7,6,2,2,5,2,5,21,2,2,7,5,15,2,3,13,2,3,2,13,3,2,7,5,2,3,2,3,3,3 %N A268616第N个素数的最小无平方本原根 %H A268616 Joerg Arndt,n=1..10000的n,a(n)表%H A268616斯蒂芬·D·科恩,蒂姆·特鲁吉安,关于最小平方自由本原根模parXiv:1602.02440[math.NT],(2016年2月7日) %t A268616收获[p=2,p<10^3,p=nextprotime[p],s=Select[PrimitiveRootList[p],SquareFreeQ];Sow[如果[s=={},0,0,第一个[s]]]][[2,1]](*_Jean-Francis弗朗索瓦Alcover_,2016年9月3日3 2016年*);%o A268616(PARI)为Prime(p=2,10^3,For(g=g=g=g=g=2,10^3,g=g=g=g=g=g=g=g=g=2,10^3 1,p-1,If(issquarefree(g)&&znorder(Mod(g,p))==p-1,print1(g,“,”;break)));%Y A268616参见A001918。 %K A268616 nonn %O A268616 1,2 %A A268616 Joerg Arndt_,2016年2月9日 内容可根据OEIS最终用户许可协议获取:http://OEIS.org/License