%I#6 2021年1月19日21:52:43

%S 1,2,3,5,7,11,12,13,17,18,19,20,23,24,28,29,31,36,37,40,41,43,44,45，

%电话：47,50,52,53,54,56,59,61,63,67,68,71,73,75,76,79,83,88,89,92,97,98,99，

%电话：100101103104107109113116117120124127131135136137

%具有二次平衡因式分解的N个数。

%C我们定义了n的因子分解为因子>1，如果它为空或以下等式，则为二次平衡：

%C（1）因子的数量；

%C（2）因子上A001222的最大图像；

%C（3）A0001221（n）。

%e术语序列及其基本指数开始于：

%e 1:{}29:{10}59:{17}

%e2:{1}31:{11}61:{18}

%e3:{2}36:{1,1,2,2}63:{2,2,4}

%e 5:{3}37:{12}67:{19}

%e 7:{4}40:{1,1,3}68:{1,1,7}

%e 11:{5}41:{13}71:{20}

%e 12:{1,1,2}43:{14}73:{21}

%e 13:{6}44:{1,1,5}75:{2,3,3}

%e 17:{7}45:{2,3}76:{1,1,8}

%e 18:{1,2,2}47:{15}79:{22}

%e 19:{8}50:{1,3,3}83:{23}

%e 20:{1,1,3}52:{1,1.6}88:{1,1,1,5}

%e 23:{9}53:{16}89:{24}

%e 24:{1,1,2,2}54:{1,2,2,2}92：{1,1,9}

%e28:{1,1,4}56:{1,1,1,4}97:{25}

%e 1920的二次平衡因子分解（素数指数{1,1,1,1,1,1,1,1,1,2,3}）是（8*8*30）和（8*12*20），因此1920是在序列中。

%t facs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，选择[facs[n/d]，Min@@#>=d&]]，{d，Rest[Divisors[n]]}]；

%t选择[Range[100]，选择[facs[#]，#=={}||Length[#]==PrimeNu[Times@@#]==最大[PrimeOmega/@#]&]={}&]

%Y备用版本为A340597。

%Y非零项在A340655中的位置。

%Y补码是A340656。

%Y A001055统计因子分解。

%Y A001221计算不同的素因子。

%Y A001222计算具有多重性的素因子。

%Y A045778计算严格因子分解。

%Y A303975在素数指数中计算不同的素数因子。

%Y A316439按产品和长度计算因子分解。

%Y其他平衡相关序列：

%Y-A010054统计平衡严格分区。

%Y-A047993统计平衡分区。

%Y-A098124统计平衡成分。

%Y-A106529列出了平衡分区的Heinz编号。

%Y-A340596计算了共同平衡因子分解。

%Y-A340598统计平衡集分区。

%Y-A340599计算另类平衡因子分解。

%Y-A340600统计未标记的平衡多集分区。

%Y-A340652统计未标记的双平衡多集分区。

%Y-A340653统计平衡因子分解。

%Y-A340654统计交叉平衡因子分解。

%Y参见A005117、A056239、A112798、A117409、A320325、A325134、A339846、A339890、A340607、A340689、A340690。

%K nonn公司

%O 1,2号机组

%A _Gus Wiseman_，2021年1月17日