登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
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 0763A07885A256067A25655.

语境中的顺序: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

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改12月7日05:14 EST 2019。包含329839个序列。(在OEIS4上运行)