%I#6 2022年10月2日10:33:45
%S 1,2,20,42,45105101251762312453123743964294605663,
%电话68070278078284589196910641088110011021311142614281445,
%电话:1530175518051820182419502001202421462156239428247525082542
%N与反向交替求和长度相同的整数分区的Heinz数。
%分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。这给出了正整数和整数分区之间的双向对应。
%序列(y_1,…,y_k)的反向交替和是sum_i(-1)^iy_i。
%e条款及其主要指数开始于:
%e1:{}
%e2:{1}
%e 20:{1,1,3}
%e 42:{1,2,4}
%e 45:{2,2,3}
%e 105:{2,3,4}
%e 110:{1,3,5}
%e 125:{3,3,3}
%e 176:{1,1,1,1,5}
%e 182:{1,4,6}
%e 231:{2,4,5}
%e 245:{3,4,4}
%e 312:{1,1,2,6}
%e 374:{1,5,7}
%e 396:{1,1,2,2,5}
%t素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
%t ats[y]:=总和[(-1)^(i-1)*y[[i]],{i,长度[y]}];
%t选择[Range[100],PrimeOmega[#]==ats[primeMS[#]]&]
%Y成分版本为A357184,按A357182计算。
%Y这些分区按A357189计算。
%Y对于绝对值,我们有A357486,按A357487计数。
%Y A000041统计分区数,严格来说是A000009。
%Y A000712最多为0的counts partitions w sum=alt sum的两倍,排名为A349159。
%Y A001055统计乘积等于和的分区,按A301987排序。
%Y A006330最多为0的计数分区w总和=两倍转速总和,等级为A349160。
%Y参见A004526、A025047、A051159、A131044、A262046、A357136。
%K nonn公司
%O 1,2号机组
%A _Gus Wiseman_,2022年10月1日
|