%I#14 2023年10月22日15:13:38

%S 1,1,0,1,0,1,1,0,0,1,2,1,0,01,1,2,1,2,0,0,1,1,1,0,0，

%温度0,2,1,0,0,1,1,1,2,2,0,1,2,0,2,0,1,1,0,2,2,0,1,0,1,0,10,0,01,0,3,1,2，

%U 0,3,1,3,1,0,2,0,3,1,2,0,1,0,1,2,0,0,1,1,2,2,0,0,0，1,2,2,2,1,3,1,1,3,0,13,3,3,12,0,2,3,0,4

%N的平衡因式分解数。

%C如果因子>1为空或其长度等于其最大欧米茄（A001222），则因子分解为因子>1是平衡的。

%H Antti Karttunen，n的表，n=1..65537的a（n）</a>

%H<a href=“/index/Eu#epf”>根据n的因式分解中的指数计算序列的索引项</a>

%e n=120，144，192，288，432，768的平衡因子分解：

%e 3*5*8 2*8*9 3*8*8 4*8*9*6*8*8*12

%e 2*2*30 3*6*8 4*6*8 6*6*8 2*8*27 2*2*8*24

%e 2*3*20 2*4*18 2*8*12 2*8*18 3*8*18 2*13*8*16

%e 2*5*12 2*6*12 4*4*12 3*8*12 4*4*27 2*4*4*24

%e 3*4*12 2*2*2x24 4*4*18 4*6*18 2*4*6*16

%e 2*2*3*16 4*6*12 4*9*12 3*4*4*16

%e 2*12*12 6*6*12 2*2*12x16

%e 2*2*2*36 2*12*18 2*2*2*2*2*48

%e 2*2*3*24 3*12*12 2*2x2*3*32

%e 2*3*3*16 2*2*2*54

%e 2*2*3*36

%e 2*3*3*24

%e 3*3*3*16

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

%t表格[Length[Select[facs[n]，#=={}||Length[#]==Max[PrimeOmega/@#]&]]，{n，100}]

%o（PARI）A340653（n，m=n，mbo=0，e=0）=如果（1==n，mbo==e，sumdiv（n，d，if（d>1）&（d<=m），A340652（n/d，d，max（mbo，bigomega（d）），1+e））；\\_Antti Karttunen，2023年10月22日

%Y零的位置为A001358。

%Y非零项的位置为A100959。

%Y平衡型为A340596。

%Y取最大因子而不是最大Omega得出A340599。

%Y交叉平衡型为A340654。

%Y双平衡型为A340655。

%Y A001055统计因子分解。

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

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

%Y A320655将因子分解计算为半素数。

%Y其他平衡相关序列：

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

%Y-A047993统计平衡分区。

%Y-A098124统计平衡成分。

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

%Y-A340597具有备用因子分解。

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

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

%Y-A340656没有二次平衡因子分解。

%Y-A340657具有二次平衡因子分解。

%Y参见A003963、A117409、A303975、A320656、A339846、A339890、A340608。

%K nonn公司

%O 1,12号

%美国威斯康辛州，2021年1月15日

%E数据部分由_Antti Karttunen于2023年10月22日扩展至a（120）