|
| |
|
| A298941型 |
| n>1的素因子多集合的排列数，这些素因子是Lyndon单词。 |
|
7
|
|
|
|
1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 0, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 3, 1, 1, 1, 1, 1, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
2,29
|
|
|
链接
|
|
|
|
例子
|
a（90）=3 Lyndon置换是{2,3,3,5}，{2,3,1,3}，}。
|
|
|
MAPLE公司
|
with（组合）：with（数字理论）：
g： =l->（n->`如果`（n=0，1，add（mobius（j）*多项式（n/j，
（l/j）[]），j=除数（igcd（l[]））/n））（加上（i，i=l））：
a： =n->g（映射（i->i[2]，ifactors（n）[2]））：
|
|
|
数学
|
素数MS[n_]：=如果[n===1，{}，平坦[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；
LyndonQ[q_]：=数组[OrderedQ[{q，RotateRight[q，#]}]&，Length[q]-1，1，And]&&Array[Rotate右[q，#]&，长度[q]，1，UnsameQ]；
表[Length[Select[Permutations[primeMS[n]]，LyndonQ]]，{n，2，60}]
（*第二个节目：*）
多项式[n_，k_List]：=n/次数@@（k！）；
g[l]：=与[{n=Total[l]}，如果[n==0，1，Sum[MoebiusMu[j]多项式[n/j，l/j]，{j，除数[GCD@@l]}]/n]]；
a[n_]：=g[FactorInteger[n][[All，2]]；
|
|
|
交叉参考
|
囊性纤维变性。A000740号,A001037号,A001222号,A008480号,A008965号,A059966号,A060223号,A096443号,A112798号,A215366型,A275024型,A294859型,A298947型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
