%I#12 2020年11月9日02:57:08

%S 1,0,0,1,0,0,1,2,0,2,1,2,1,2,2,1,1,2,6,4,1,4,7,4,12,4,13,6,12,28,18,28,19,6，

%电话：25,52,24,54,30,56,31,98156102,371041571502175154288，

%电话：200528246307226669907001038679348799182812721164

%N N到不同奇数素数的组合数（有序分区）。

%H Alois P.Heinz，<a href=“/A31981/b31981.txt”>n，a（n）表，n=0.-10000</a>

%H<a href=“/index/Com#comp”>为与合成相关的序列的条目编制索引</a>

%e a（16）=4，因为我们有[13，3]，[11，5]，[5，11]和[3，13]。

%p s：=proc（n）选项记忆`如果`（n<1，0，ithprime（n+1）+s（n-1））结束：

%pb:=proc（n，i，t）选项记忆`如果`（s（i）<n，0，`如果`（n=0，t！，（p

%p->`如果`（p>n，0，b（n-p，i-1，t+1））（ithprime（i+1））+b（n，i-1、t））

%p端：

%pa:=n->b（n，数值理论[pi]（n），0）：

%p序列（a（n），n=0..72）；#_阿洛伊斯·海因茨，2020年2月3日

%ts[n_]：=s[n]=如果[n<1，0，素数[n+1]+s[n-1]]；

%tb[n_，i_，t_]：=b[n，i，t]=如果[s[i]<n，0，如果[n==0，t！，如果[#>n，0；

%ta[n_]：=b[n，素数Pi[n]，0]；

%t a/@Range[0，72]（*_Jean-François Alcover_，2020年11月9日，在_Alois P.Heinz_*之后）

%Y参见A002124、A023360、A024939、A065091、A099773、A219107、A331926、A331982。

%K nonn公司

%0、9

%A _Ilya Gutkovskiy，2020年2月3日