%I#20 2022年9月8日08:45:18
%S 2,29,31,37,47,61,7910112715719122926326927129331137359,
%电话:367389421461479503541599607653677727733751757773,
%电话:797823829839853887911967983997101310611066310871117
%形式为2x^2+29y^2的N个素数。
%C鉴别=-232。详见A107132。
%H Vincenzo Librandi和Ray Chandler,n表,n(n)表示n=1..10000
%H N.J.A.Sloane等人,<A href=“https://oeis.org/wiki/Binary_Quadratic_Forms_and_oeis“>二进制二次型和OEIS(相关序列、程序、参考的索引)
%F素数与{2,15,21,29,31,37,39,47,55,61,69,77,79,85,95,101,119,127,133,135,143,157,159,189,191,205,213,215,221,229}(mod 232)一致_T.D.Noe_,2008年5月2日
%t四元数2[2,0,29,10000](*参见A106856*)
%o(岩浆)[PrimesUpTo(2000)中的p:p |{2,15,21,29,31,37,39,47,55,61,69,77,79,85,95,101,119,127,133,135,143,157,159,189,191,205,213,215,221,229}中的p mod 232];//_文森佐·利班迪(Vincenzo Librandi),2012年7月25日
%o(PARI)列表(lim)=我的(v=列表([2]),s=[15、21、29、31、37、39、47、55、61、69、77、79、85、95、101、119、127、133、135、143、157、159、189、191、205、213、215、221、229]);forprime(p=29,lim,if(setsearch(s,p%232),listput(v,p));Vec(v)\\_Charles R Greathouse IV_,2017年2月10日
%Y参考A139827。
%K nonn,简单
%O 1,1号机组
%A _T.D.Noe_,2005年5月13日
|