%I#6 2019年12月31日08:24:23

%S 1,1,1,0,1,0,1,1,1,0,1,0,1,0,1,0,1,0,1,2,0,1,0,1,0,1,0,1,0,1,0,1,3,2,0,1,2,0,1,2,0,1,0,1,0,1,1,1,1,1，

%温度2,0,1,0,1,1,1,5,0,1,1,0,1,1,1,1,0,1,1,1,1,2,0,11,3,0,11,5,9,0,10,1,0，

%U 0,1,0,1,7,0,1,1,01,0,1,5,0,11,3

%N按行读取的不规则三角形，其中T（N，k）是深度k的平衡约化多系数，其原子是N的素指数。

%C平衡约化多系统是一个有限多集，或者是一个具有平衡约化多重系统的至少两个部分（并非所有部分都是单子）的多集划分。

%C n的素数指数是一个数m，素数（m）除以n。n的多素数指数集是A112798的第n行。

%e三角形开始：

%电子{}

%第1页

%第1页

%e 1 0

%第1页

%e 1 0

%第1页

%e 1 1 0

%e 1 0

%e 1 0

%第1页

%e 1 2 0

%第1页

%e 1 0

%e 1 0

%e 1 3 2 0

%第1页

%e 1 2 0

%第1页

%e 1 2 0

%e行n=84统计以下多系统（省略逗号）：

%电子{1124}{{1}{124}{{{1{}}{1}}{24}}

%e{{11}{24}}{{11{}}{2}{4}}

%e{{12}{14}}{{1}}{2}{14{}}

%e{{2}{114}}{{12}}{1}{4}}

%e{{4}{112}}{{1}}{4}{12}}

%e{{1}{1}{24}{{14}}{1{2}}

%e{{1}{2}{14}{{2}}{{1{14}}

%e{{1}{4}{12}{{2}}{4{11}}}

%电子{{2}{4}{11}{{24}}{1}{1{}}}

%e{{4}}{1}{12}}

%e｛｛4｝｝｛2｝｛11｝｝｝

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

%t totfac[n_，k_]：=如果[k==1,1，总和[totfac[Times@@Prime/@f，k-1]，{f，选择[facs[n]，1<长度[#]<原欧米茄[n]&]}]；

%t表[totfac[n，k]，{n，100}，{k，PrimeOmega[n]}]

%Y行长度为A001222。

%Y行总和为A318812。

%Y第n行的最后一个非零项是A330665（n）。

%如果n是素数，则Y列k=2为0；否则为A001055（n）-2。

%Y参见A000311、A000669、A001678、A005121、A008827、A213427、A317145、A318846、A330474、A330975、A330655、A330.666。

%K nonn，标签

%O 1,18号

%A _Gus Wiseman_，2019年12月27日