%I#12 2021年1月12日19:48:15

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

%温度1,4,1,1,3,1,2,2,1,1,6,1,2,1,2,1,2,2,1,2,3,1,3,3,1,1,5,1,2,5,1,2,1,2，

%U 1,2,1,8,1,1,2,2,1,2,1,1,6,2,1,1,5,1,1,1

%N将N分解为因子>1的奇数长度因子分解的数目。

%H Alois P.Heinz，<a href=“/A393890/b393890.txt”>n，a（n）表，n=1..20000</a>

%F a（n）+A339846（n）=A001055（n）。

%e n=24、48、60、72、96、120的a（n）因子分解：

%电子24 48 60 72 96 120

%e 2*2*6 2*3*8 2*5*6 2x4*9 2*6*8 3*5*8

%e 2*3*4 2*4*6 3*4*5 2*6*6 3x4*8 4*5*6

%e 3*4*4 2*2*15 3*3*8 4*4*6 2*2*30

%e 2*2*12 2*3*10 3*4*6 2*2*24 2*3*20

%e 2*2*2x2*3 2*2*18 2*3*16 2*4*15

%e 2*3*12 2*4*12 2x5*12

%e 2*2*2x3*3 2*2x2*2*6 2*6*10

%e 2*2*2+3*4 3*4*10

%e 2*2*2+3*5

%p g：=proc（n，k，t）选项记忆`如果`（n>k，0，t）+

%p`if`（i素数（n），0，加（`if'（d>k，0，g（n/d，d，1-t）），

%p d=数值[除数]（n）减去{1，n}）

%p端：

%pa:=n->`如果`（n<2,0，g（n$2,1））：

%p序列（a（n），n=1..100）；#_阿洛伊斯·海因茨，2020年12月30日

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

%t表格[Length[Select[facs[n]，奇数Q@长度[#]&]]，{n，100}]

%Y设置分区（或n平方自由）的情况是A024429。

%Y分区（或素数幂）的情况是A027193。

%Y订购版本为A174726（偶数：A174725）。

%Y剩余的（均匀长度）因子分解由A339846计算。

%Y A000009将分区计算为奇数部分，按A066208排序。

%Y A001055统计因子分解，严格情况下为A045778。

%Y A027193统计奇数长度的分区，按A026424排序。

%Y A058695统计奇数分区，按A300063排序。

%Y A160786统计奇数的奇数长度分区，按A300272排序。

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

%Y A340101将因子分解计算为奇数因子。

%Y A340102将奇长因子分解计算为奇因子。

%Y参见A000700、A002033、A027187、A028260、A074206、A078408、A236914、A320732。

%K nonn公司

%O 1,8型

%阿古斯·维斯曼，2020年12月28日