%I#27 2022年9月8日08:45:03
%编号:7,43,61,79,971512232412773131349367421439457547601,
%电话:6196736917097278539079971033105110691087112131231,
%电话:124913031321142914471483160916271663169917531789186118791933
%N质数==7(mod 9)。
%C A010888(a(n))=7_Reinhard Zumkeller,2005年2月25日
%H Robert Israel,<a href=“/A061241/b061241.txt”>n的表格,a(n)表示n=1.-10000</a>
%p选择(i素数,[seq(9*i+7,i=0..10^5)]);#_罗伯特·伊斯雷尔(Robert Israel),2014年4月20日
%t选择[Range[2500],PrimeQ[#]&&Mod[#,9]==7&]
%t选择[Prime[Range[300]],Mod[#,9]==7&](*哈维·P·戴尔,2011年4月30日*)
%o(岩浆)[PrimesUpTo(2000)中的p:p | p mod 9 eq 7];//_文森佐·利班迪(Vincenzo Librandi),2010年12月25日
%o(PARI)选择(n->n%9==7,素数(400))\\_Charles R Greathouse IV_,2014年5月27日
%Y参考A061237..A061242。
%K nonn,简单
%O 1,1号机组
%A _Amarnath Murthy,2001年4月23日
%E更多条款摘自2001年5月10日_Robert G.Wilson v_
|