%I#14 2012年9月29日18:18:41

%S 13,29,611091371491811972292572782813173499389401457461，

%电话：541557569617677761797821929937977102110971129121271237，

%电话：12891297132114811489154915971621172117771861187719972029

%N素数p，使得p-3是小于p的最大半素数。

%C A089531的子序列。

%H T.D.Noe，n的表，n=1..1000时的a（n）</a>

%e977是素数，976=2^4*61和975=3*5^2*13不是半素数，而974=2*487是半素数。

%t SemiPrimeQ[n_Integer]：=如果[Abs[n]<2，则为False，（2==Plus@@Transpose[FactorInteger[Abs]][2]]）]；选择[Prime[Range[500]]！SemiPrimeQ[#-1]&&！SemiPrimeQ[#-2]&&SemiPrime Q[#-3]&]（*T.D.Noe_，2012年9月27日*）

%o（PARI）表示素数（p=59999，bigomega（p-3）==2&&bigomela（p-1）=2&&bigomega（p-2）=2打印1（p“，”）（&p）

%Y参考A217195。

%K nonn公司

%O 1,1号机组

%A _Antonio Roldán，2012年9月27日