%I#23 2021年3月1日10:15:59

%S 1,0,1,3,10,401539215144307172307481766056140524451165800521，

%电话8978765197657321097757439796087887337350807569825650083，

%电话：7524238629561783197845306391944103049405370370120064355466770831579842230587833

%N将{1，2，…，2n}划分为其差为素数的对的分区的数目。

%e a（3）=3:{{1,6}，{2,4}，}3,5}}_Alois P.Heinz，2016年11月15日

%p b:=进程选项记忆`如果`（s={}，1，（j->add（`if`（i<j

%p和isprime（j-i），b（s减去{i，j}），0），i=s）（最大值（s））

%p端：

%pa:=n->b（{$1..2*n}）：

%p序列（a（n），n=0..12）；#_Alois P.Heinz，2016年11月15日

%tb[s_]：=b[s]=如果[s=={}，1，函数[j，和[If[i<j&&PrimeQ[j-i]，b[s~补码~{i，j}]，0]，{i，s}]][Max[s]]]；

%t a[n_]：=b[范围[2n]]；

%t表格[打印[n，“”，a[n]]；a[n]，{n，0，18}]（*_Jean-François Alcover_，2021年3月1日，在_Alois P.Heinz_*之后）

%Y参考A000341。

%K nonn，硬

%0、4

%A·热心的W·威尔逊_

%E a（0），a（14）-a（18），来自_Alois P.Heinz，2016年11月15日

%E a（19）-a（23），摘自_伯特·多贝勒，2020年2月20日