%我#13 2017年9月29日21:30:02
%S 3,4,5,6,7,8,9,11,13,16,20,27,39,831031221452793608798,
%电话:92911641266149120433276342671191571118424
%N(素数(N)#-4)/2是素数,其中x#是素数A034386(x)。
%C n,使A002110(n)/2-2为素数。
%C a(33)>25000。-_Robert Price_,2017年9月29日
%t p=1;Do[p=p*Prime[n];如果[PrimeQ[(p-4)/2],打印[n]],{n,1400}]
%t展平[Position[Rest[FoldList[Times,1,Prime[Range[2100]]],_?(PrimeQ[(#-4)/2]&)]](*哈维·P·戴尔,2014年11月22日*)
%Y参考A002110、A067024、A067027。
%K nonn公司
%O 1,1
%A _Labos Elemer,2001年12月29日
%E更多条款,摘自Robert G.Wilson v_,2001年12月30日
%E a(21)-a(27)摘自雷·钱德勒,2013年6月16日
%E a(28)-a(32)摘自2017年9月29日的罗巴特价格
|