%I#14 2015年11月26日18:06:07
%S 6,4,26,9,10,65,33,57,21,22377111,39123,87,91,95,4920633912,62,
%电话393,69141145,741141362,93,94,95291505209106215219111339,
%电话:115120525391768556628914629520933159321489835341
%正整数序列的N个半素数。
%C将正整数序列划分为若干组数,这些数的总和为半素数:{1,2,3},{4},}5..8},{9},}10},◄11..15},►16,17},]18..20},▄{21},|22},[23..35},*36..38},★,{39},〈40..42}, ̄{43,44}等。相应的半素数为:6,4,26,9,10,65,33,57,21,22,377,111,39,123、87等。
%序列是有限的吗?参见A109411中的注释。
%H Zak Seidov,<a href=“/A1333837/b133837.txt”>n的表,a(n)表示n=1.-10000</a>
%t s=范围【300】;c=0;标签[1];i=1;p=s[[1];当[i<Length[s]&&Plus@@Last/@FactorInteger[p]=/=2时,i++;p=Plus@@Take[s,i]];(*打印[{i,p}];*)c++;a[c]=p;s=下降[s,i];如果[长度]>1,转到[1];表[a[j],{j,c}]
%Y参考A109411。
%K nonn公司
%O 1,1号机组
%2007年9月26日,A_Zak Seidov