%I#32 2022年1月1日21:39:41
%S 4,6,14,38,62,74158194278314398422458542614662674734758,
%电话:878998109411541202121412381322138214541622165817541874,
%电话:19341994201821382342247425582594279828582918306232183254
%N素数+1形式的半素数。
%C a(n)=A005383(n)+1=2*A005382(n)。
%有672个形式为素数+1的半素数在100000以下。
%Ca(n)=A232342(n)+A077065(n)。-Reinhard Zumkeller,2013年12月16日
%H Reinhard Zumkeller,n的表,n=1..10000的a(n)</a>
%F A010051(A008864(n)/2)=A064911(A00886(n))=1。-Reinhard Zumkeller,2013年11月22日
%e A001358(25)=74=2*37是一个术语,即74=A000040(21)+1=73+1。
%t选择[Range[6000],加上@@Last/@FactorInteger[#]==2&&PrimeQ[#-1]&](*_Vladimir Joseph Stephan Orlovsky_,2011年5月8日*)
%t选择[Prime@Range@460+1,PrimeOmega@#==2&](*_Robert G.Wilson v_,2014年2月18日*)
%o(哈斯克尔)
%o a077068 n=a077068_列表!!(n-1)
%o a077068_list=过滤器((==1)。a010051。(`div`2))008864_列表
%o--_Reinhard Zumkeller_,2013年11月22日
%o(PARI)[x+1|x<-素数(10^5),bigomega(x+1)==2]\\-Charles R Greathouse IV_,2013年11月22日
%o(PARI)is(n)=isprime(n-1)&&isprime
%Y参见A008864、A001358、A000040、A077065、A077077。
%K nonn公司
%O 1,1号机组
%A _Reinhard Zumkeller,2002年10月23日