|
| |
|
| A074064 |
| 具有最大可能阶数的n次排列的循环类型数。 |
|
七
|
|
|
|
1, 1, 1、1, 1, 1、2, 1, 1、1, 1, 2、1, 1, 1、1, 1, 1、2, 1, 1、2, 4, 1、1, 1, 1、1, 1, 1、1, 1, 1、1, 1, 1、1, 1, 1、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ
（列表；图表；参考文献；听；历史；文本；内部格式）
|
|
|
|
抵消
|
0. 7
|
|
|
链接
|
Alois P. Heinzn，a（n）n＝0…180的表
|
|
|
公式
|
SuMu{I i展开中的X^ n系数A000 0763（n）}亩A000 0763（n）/i）* 1 /乘积{j划分i}（1-x^ j）。
|
|
|
例子
|
对于n＝22，我们有4个这样的循环类型：[ 1, 1, 1，3, 4, 5，7 ]，[1, 2, 3，4, 5, 7 ]，[3, 3, 4，5, 7 ]，[4, 5, 6，7 ]。
|
|
|
枫树
|
A000 0763= Pro（n）选项记住；局部L，P，I；L＝1：P:=组合（分区）（n）：如果i从1到[NUBPUTHECT]（n），如果ILCM（P[i] [j] $ j＝1…nops[p[i]）> l，则L:= ILCM（P[i] [j] $j＝1…nops[p[i]）；FI:OD:Read（L）；结束PROC：
Tayl vIn＝PROC（i，n）局部ReSUL，j，iDIV，K；RESUL:＝1；iDIV:= NothOrth[NoDe]（i）；k为：：OP（k，iDIV）；RESUL:= RESUL**泰勒（1 /（1-x^ j），x＝0，n+1）；RESUL:=转换（泰勒（RESUL，x＝0，n+1），多项式）；OD；CefTayl（RESUL，x＝0，N）；结束PROC：
A074064= PROC（n）局部RESUL，A793DVS，I，K；RESUL:＝0：A793:A000 0763（n）；DVS＝NothOnt[除数]（A793）；对于k从1到NoP（DVS）i：= OP（k，DVS）；RESUL:= RESUL+NUMSCOR[MOBIUS ]（A793/I）* Tayl In（i，n）；OD:返回（RESUL）；结束PROC:α马塔尔3月30日2007
|
|
|
Mathematica
|
B[n]，ii]：=b[n，i]＝模[{p}，p=If [ i＜1, 1，素数[i] ]；如果[n=＝0〉i＜1, 1，马克斯[b[n，i-1 ]，表[p^ j*b[np~j，i-1 ]，{j，1，log [p，n]／/Loop}[] ] ]；
g[n]：= g[n]＝b[n，如果n＜8, 3，PrimePi[天花板] [**qrt[n*log [n]／/层≤≤]；
a[n]：= a[n]＝级数系数[和] [MeBiuSuM[G[n]／i] /乘积[1-x^ j，{j，除数[i] }]，{i，除数[g[n] }}[+o[x] ^（n+1），n]；
表[打印] [ a，（n，]）＝，[a[n] ]；a[n]，{n，0, 100 }]（*）让弗兰4月25日2017后阿洛伊斯·P·海因茨*）
|
|
|
交叉裁判
|
囊性纤维变性。A000 0763，A07885，A256067，A25655.
语境中的顺序：A202053 A249545 A29 608*A27 5215 A3048 A25632
相邻序列：A074061 A074062 A074063*A074065 A074066 A074067
|
|
|
关键词
|
容易，诺恩
|
|
|
作者
|
瓦拉德塔约霍维奇9月15日2002
|
|
|
扩展
|
更多条款马塔尔3月30日2007
更多条款肖恩·A·欧文，10月04日2011
更多条款阿洛伊斯·P·海因茨3月29日2015
|
|
|
地位
|
经核准的
|
| |
|
|
