%I#11 2017年3月18日08:35:20
%S 10,15,19,24,29,36,43,47,51,59,67,69,73,77,85,95100106112115120,
%电话127134143151159167171173178184187189201217226233237,
%电话:240243245252267275283288288291301313317320327335
%N两个连续半素数的和。
%H Zak Seidov,n的表,n的a(n)=1..10000</a>
%F a(n)=A001358(n)+A001359(n+1)。
%t总计/@分区[Select[Range[50000],2==PrimeOmega[#]&],2,1](*_Zak Seidov_,2017年1月31日*)
%o(PARI)是A001358(n)={局部(f,fct,sumpo
%o{oldn=0;对于(n=4200,如果(isA001358(n)==1,如果(oldn!=0,print1(oldn+n,“,”););)
%Y参考A001358。
%K nonn公司
%O 1,1号机组
%A Luc Stevens(lms022(AT)yahoo.com),2006年5月21日
%E由R.J.Mathar_修订和扩展,2006年5月23日
%E编辑_Ray Chandler_,2010年10月31日
|