%I#13 2015年11月26日18:54:32

%S 3,1,4,1,1,5,2,3,1,13,3,1,3,2,2,2,1,4,2,1,6,1,2,1,1,4,4,1,1,3，

%温度5,2,1,2,2,1,3,10,2,7,5,4,2,1,2,2,2,6,12,3,5,3,3,4,6,2,3,2,4,1，

%U 14,1,1,4,7,5,2,3,6,1,2,2,1,2,2,2,1,1,4,2,2,3,17,2,1,10,3,1,3,6,1,4,2,1

%将正整数序列划分为最小群，使每个群中的项之和是一个半素数；序列给出了组的大小。

%序列是有限的吗？如果一个群以a开头，以b结尾，则项之和为s=（a+b）（b-a+1）/2，并且不明显a）存在a，以至于不可能找到b>=a，以至于s是半素数，b）这样的a将出现在A109411中。

%这个问题等价于：给定一个奇数n（=2a-1），它能用p-2q或2q-p表示吗，其中p，q是素数？我相信答案是“是的”，但问题的复杂性可能与哥德巴赫猜想相同_Max Alekseyev_，2005年7月1日

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

%e分区开始于{1-3}、{4}、}5-8}、[9}、[10}、f11-15}、F16-17}、%18-20}、[21}、[2]、[2]、{23-35}，{36-38}，}39、{40-42]、{43-44]、{45-46}、[3]47到48}、｛49、{50-53、{54-59}，｛60-61}，｝，{62}、｝63-68}。。。

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

%p a:=proc（n）选项记忆；局部i，k，t；k： =0；t： =s（n-1）；

%从1+t到k的i的p：=k+i；

%p如果numtheory[bigomega]（k）=2，则返回i-tfi

%日期

%p端：

%p序列（a（n），n=1..100）；#_Alois P.Heinz，2015年11月26日

%ts={{1,2,3}}；a=4；Do[Do[If[Plus@@Last/@FactorInteger[（a+x）（x-a+1）/2]==2，AppendTo[s，Range[a，x]]；（*打印[Range[a，x]]；*）a=x+1；中断[]]，{x，a，20000}]，{k，1，1000}]；秒

%Y参考A133837。

%K nonn公司

%O 1,1号机组

%A_Zak Seidov，2005年7月1日