%I#11 2022年9月8日08:44:53
%S 2,17,19,43,47,59,67,83103127149151157179191223229251,
%电话:2572632712933073313533389409433443457463467491,
%电话:509523563587599613631647
%N素数p使得x^4=17具有解模p。
%H Vincenzo Librandi,n的表,n=1..1000的a(n)</a>
%t ok[p_]:=减少[Mod[x^4-17,p]==0,x,Integers]=!=错误;选择[Prime[范围[180]],确定](*_Winenzo Librandi_,2012年9月12日*)
%o(岩浆)[PrimesUpTo(800)中的p:p |存在于剩余分类环(p)中的{x:x |x^4 eq 17}];//_文森佐·利班迪(Vincenzo Librandi),2012年9月12日
%o(PARI)/*使用ispower(Mod(17,n),4)“除法为零”解决bug*/
%o选择(n->(n==2)||(ispower(Mod(17,n),4)),素数(1000))
%o/*_Joerg Arndt_,2012年9月12日*/
%Y参考A040140。
%K nonn,简单
%O 1,1号机组
%A.N.J.A.斯隆。
|