%I#18 2023年10月22日15:15:09

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

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

%U 1,3,0,8,0,1,2,2,1,3,6,3,1,0,6,1,1,4,6,1,2,1,1,10,0,2,5,0,3,4,3

%N将N分解为因子>1的均匀长度因子的次数。

%H Antti Karttunen，<a href=“/A39846/b339846.txt”>n的表，a（n）表示n=1..65537</a>

%H Gus Wiseman，成对分组的因子分解、因子可分解性和顶点度分区的计数和排序</a>

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

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

%e对于n=12，16，24，36，48，72，96，120的a（n）因子分解：

%e 2*6 2*8 3*8 4*9 6*8 8*9 2*48 2*60

%e 3*4 4*4 4*6 6*6 2*24 2*36 3*32 3*40

%e 2*2*2*2 2*12 2*18 3*16 3*24 4*24 4x30

%e 2*2*2*3 3*12 4*12 4*18 6*16 5*24

%e 2*2*3*3 2*2x2*6 6*12 8*12 6*20

%e 2*2*3*4 2*2x2*9 2*2x3*8 8*15

%e 2*2*3*6 2*2x4*6 10*12

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

%e 2*2*2*12 2*3*4*5

%e 2*2*2x2*2*3 2*2X2*15

%e 2*2*3*10

%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=1,1，g（n$2,0））：

%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]，EvenQ@长度[#]&]]，{n，100}]

%o（PARI）A339846（n，m=n，e=1）=如果（1==n，e，sumdiv（n，d，if（（d>1）&&（d<=m），A33984六（n/d，d，1-e））；\\_Antti Karttunen，2023年10月22日

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

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

%Y订购的版本是A174725，奇数为A174726。

%Y奇长因子分解由A339890计算。

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

%Y A001358列出了半素数，平方格为A006881。

%Y A027187统计偶数长度的分区，按A028260排序。

%Y A058696统计偶数分区，按A300061排名。

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

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

%Y参见A002033、A007716、A027193、A050320、A058695、A074206、A236913、A320655、A320656、A320732。

%K nonn公司

%O 1,12号

%A _Gus Wiseman_，2020年12月28日

%2023年10月22日，安蒂·卡图宁将E数据段扩展至a（105）