%I#5 2020年2月18日04:47:44
%S 1,2,4,6,8,12,16,30,32,64128180102563605121024204823104096,
%电话:81921638430030327686553675600131072262144510524288
%广义全共强正规整数分划的N Heinz数。
%如果整数分区是常数1(宽),或者它覆盖了正整数的初始区间(正),并且具有弱增加的运行长度(co-强),则整数分区是广泛的完全co-强正规分区。
%整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
%e项的序列及其素数开始于:
%e1:{}
%e2:{1}
%e4:{1,1}
%e 6:{1,2}
%e8:{1,1,1}
%e 12:{1,1,2}
%e 16:{1,1,1,1}
%e 30:{1,2,3}
%e 32:{1,1,1,1,1,1}
%e 64:{1,1,1,1,1,1,1}
%e 128:{1,1,1,1,1,1,1}
%e 180:{1,1,2,2,3}
%e 210:{1,2,3,4}
%e 256:{1,1,1,1,1,1,1,1}
%e 360:{1,1,2,2,3}
%e 512:{1,1,1,1,1,1,1,1,1}
%e 1024:{1,1,1,1,1,1,1,1,1,1,1}
%e 2048:{1,1,1,1,1,1,1,1,11,1,1,1}
%e 2310:{1,2,3,4,5}
%e 4096:{1,1,1,1,1,1,1,1,11,1,1,1}
%e 8192:{1,1,1,1,1-1,1,1,1,1,1,1,1,1}
%e例如,180是(3,2,2,1,1)的Heinz数,运行长度为(3,2,2,1)->(1,2,2)->(2,2)->(1,1)。这些都是正常的,多重数略有增加,最后一个都是1,所以180属于序列。
%t素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
%t normQ[m_]:=m=={}||并集[m]==范围[Max[m]];
%t gnaQ[y_]:=或[y=={},并集[y]=={1},和[normQ[y],LessEqual@@Length/@Split[y];
%t选择[Range[1000],gnaQ[Reverse[primeMS[#]]&]
%Y A055932的子集。
%Y根据A181819关闭。
%Y非共强型为A332276。
%Y这些分区的总和计数为A332278。
%Y交替版本为A332290。
%Y强版本是A332291。
%Y反向隔板的情况也是A332291。
%Y参考A000009、A056239、A133808、A182850、A304660、A317089、A317246、A317257、A317492、A329747、A332277、A333289。
%K nonn,更多
%O 1,2号机组
%A _ Gus Wiseman_,2020年2月16日
|