|
|
A324924型 |
| 行读取的不规则三角形,将n分解为因子q(i)=素数(i)/i,i>0。 |
|
28
|
|
|
1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 4, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 3, 1, 2, 3, 5, 1, 1, 1, 2, 1, 1, 2, 6, 1, 1, 1, 4, 1, 1, 2, 2, 3, 1, 1, 1, 1, 1, 1, 4, 7, 1, 1, 1, 2, 2, 1, 1, 1, 8, 1, 1, 1, 2, 3, 1, 1, 1, 2, 4, 1, 1, 2, 3, 5, 1, 1, 2, 2, 9
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
第n行是具有Matula-Goebel编号n的根树的所有适当终端子树的Matula-Goobel编号的多集。例如,具有Matula-Goebel编号1362的根树是(o(o)((oo)(oo,根据需要,为第1362行。
|
|
链接
|
|
|
例子
|
三角形开始:
{}
1
1 2
1 1
1 2 3
1 1 2
1 1 4
1 1 1
1 1 2 2
1 1 2 3
1 2 3 5
1 1 1 2
1 1 2 6
1 1 1 4
1 1 2 2 3
1 1 1 1
1 1 4 7
1 1 1 2 2
1 1 1 8
1 1 1 2 3
1 1 1 2 4
1 1 2 3 5
1 1 2 2 9
例如,第65行是{1,1,2,2,3,6},因为65=q(1)^3q(2)^2q(3)q(6)。
|
|
数学
|
difac[n_]:=如果[n==1,{},使用[{i=PrimePi[FactorInteger[n][[1,1]]},排序[前缀[difac[n*i/Prime[i]],i]]];
表[difac[n],{n,30}]
|
|
交叉参考
|
囊性纤维变性。A000081号,A003963号,A061775号,A109082号,A109129号,A112798号,A120383号,A196050型,A317713飞机,A324850型,A324922型,A324923型,A324925型,A324931飞机,A324934型.
|
|
关键字
|
非n,标签
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|