%I#10 2023年3月22日13:33:37
%S 1,1,2,1,3,0,3,1,4,1,5,0,4,14,1,6,0,4,1,4,0,10,6,1,5,12,0,5,0,
%T 6,1,13,0,7,1,9,1,13,1,7,16,0,13,9,1,7,0,14,0,12,7,0,0,10,
%U 1,20,0,11,13,15,0,8,0,10,18,0,12,1,8,2,23,0,10,10,0,26,0,13,0,13
%N素数p<=2n,这样p+N也是素数。
%A007921中n的C a(n)=0。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%e a(12)=5,因为只有24以下的5个素数p=5,7,11,17,19才能形成其他素数p+12=17,19,23,29,31。
%p p:=选择(i素数,[2,seq(i,i=3..3000,2)]);
%p f:=proc(n)局部m,R;
%pm:=列表工具:-二进制位置(p,3*n);
%p R:=转换(p[1..m],集);
%p-nops((R-~n)与R相交)
%p端程序:
%p f(1):=1:
%p映射(f,[1..1000]美元);#_罗伯特·伊斯雷尔,2023年3月22日
%t表[Length[Select[Select[范围[2*n],PrimeQ,PrimeQ[#+n]&]],{n,100}](*_Ryan Propper_,2006年11月12日*)
%K nonn公司
%O 1,4型
%A _Lekraj Beedassy,2006年8月23日
%E来自_Ryan Propper_的更多条款,2006年11月12日
|