|
|
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
|
|
地位
|
经核准的
|
|
|
|