%I#16 2015年2月28日23:16:20

%S 4,6,9,0,0,51,4,22,4,62,33,0,,0,93,4,94,15,55,15,85,26,4,4,0,77,4,58，

%电话：4,6,0,39,49,0,0111511,0,12121321921,0,0141,0341,0,0551，

%电话：851951161,0961771871381581781,0,6202302502,14

%N第N个半素数的最小半素数除以数字反转，如果没有这样的因子，则为0。

%H Alois P.Heinz，n的表格，n=1..10000的a（n）</a>

%F a（n）=A210615（A210616（n））。

%e a（4）=0，因为第4个半质是10，R（10）=1，不可被任何半质整除。

%e a（6）=51，因为第六个半素数是15，而R（15）=51本身就是半素数。

%e a（7）=4，因为第7个半素数是21，R（21）=12，4是12的最小半素数除数。

%pr:=proc（n）选项记忆；局部q；

%p`if`（n<10，n，irem（n，10，'q'）*10^（长度（n）-1）+r（q））

%p端：

%p b:=proc（n）选项记忆；局部k；

%p如果n=0，则为0

%b（n-1）+1中k的p else

%p while is素数（k）or 2<>加法（i[2]，i=ifactors（k）[2]）

%p做od；k个

%功率因数

%p端：

%p a:=proc（n）选项记忆；局部m，k；

%p m：=r（b（n））；

%p代表k从4到mdo

%p如果irem（m，k）=0且不是isprime（k）和

%p加上（i[2]，i=ifactors（k）[2]）=2，然后返回kfi

%p od；0

%p端：

%p序列（a（n），n=1..100）；#_Alois P.Heinz，2012年3月28日

%Y参见A001358、A210615、A210616。

%K nonn，基础，看，简单

%O 1,1号机组

%A _Jonathan Vos Post，2012年3月28日