登录
A363265
具有唯一模式的n的整数分解数。
1
0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 1, 1, 3, 2, 1, 2, 2, 1, 1, 1, 5, 1, 1, 1, 4, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 6, 2, 2, 1, 2, 1, 3, 1, 3, 1, 1, 1, 3, 1, 1, 2, 7, 1, 1, 1, 2, 1, 1, 1, 8, 1, 1, 2, 2, 1, 1, 1, 6, 4, 1, 1, 3, 1, 1, 1
抵消
1,4
评论
n的整数分解是积为n的正整数>1的多集。
多集合中的模式是一个元素,其出现次数至少与其他元素相同。例如,{a、a、b、b、b、b、c、d、d、d}中的模式是{b、d}。
推测:这个序列中缺少9。
例子
n=2,4,16,24,48,72的a(n)因子分解:
(2) (4) (16) (24) (48) (72)
(2*2) (4*4) (2*2*6) (3*4*4) (2*6*6)
(2*2*4) (2*2*2*3) (2*2*12) (3*3*8)
(2*2*2*2) (2*2*2*6) (2*2*18)
(2*2*3*4) (2*2*2*9)
(2*2*2*2*3) (2*2*3*6)
(2*3*3*4)
(2*2*2*3*3)
数学
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
模式[ms_]:=选择[Union[ms],Count[ms,#]>=最大@@Length/@Split[ms]&];
表[Length[Select[facs[n],Length[模式[#]]==1&]],{n,100}]
交叉参考
分区的补码是A362607飞机,排名A362605型.
分区的版本为A362608型,排名A356862飞机.
A001055号计数因子分解,严格A045778号,已订购A074206号.
A089723号计算常数因子分解。
A316439型按长度计算因子分解,A008284号分区。
A339846飞机计算偶数长度因子分解,A339890型奇怪的长度。
关键词
非n
作者
古斯·怀斯曼2023年6月27日
状态
经核准的