登录
OEIS基金会西蒙斯基金会的捐赠得到了西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A074064号 具有最大可能阶的n次置换的循环类型数。 7

%我

%S 1,1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

%T 1,1,1,1,1,1,1,1,1,1,1,2,4,1,1,1,1,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,,

%U 1,1,1,1,1,1,2,3,1,1,1,1,2,4,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,2,4

%具有最大可能阶的N次置换的N个循环类型。

%H Alois P.Heinz,<a href=“/A074064/b074064.txt”>n,a(n)表格,n=0..180</a>

%和{i除A000793(n)}mu(A000793(n)/i)*1/积{j除i}(1-x^j)展开式中x^n的F系数。

%对于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]。

%p A000793:=proc(n)option记住;local l,p,i;l:=1:p:=combinat[partition](n):对于从1到combinat[numberpart](n)的i,如果ilcm(p[i][j]$j=1..nops(p[i])>l,则l:=ilcm(p[i][j]$j=1..nops(p[i]);fi:od:返回(l);结束过程:

%p taylInv:=proc(i,n)局部结果,j,idiv,k;结果:=1;idiv:=numtheory[除数](i);对于k从1到nops(idiv)do j:=op(k,idiv);resu:=resu*taylor(1/(1-x^j),x=0,n+1);resu:=convert(taylor(result,x=0,n+1),polynom);od;coeftayl(resu,x=0,n);结束过程:

%p a07064:=proc(n)局部结果,a793,dvs,i,k;结果:=0:a793:=a00793(n);dvs:=numtheory[除数](a793);对于k从1到nops(dvs)do i:=op(k,dvs);result:=resu+numtheory[mobius](a793/i)*taylInv(i,n);od:返回(resu);结束过程:#_R.J.Mathar_2007年3月30日

%[p,i]=1[p,i]=1[p,i];

%t g[n_9]:=g[n]=b[n,如果[n<8,3,PrimePi[Ceiling[1.328*Sqrt[n*Log[n]//Floor]]]];

%t a[n_u]:=a[n]=系列系数[Sum[MoebiusMu[g[n]/i]/Product[1-x^j,{j,除数[i]}],{i,除数[g[n]]}]+O[x]^(n+1),n];

%t表[Print[“a(”,n,“)=”,a[n]];a[n],{n,0,100}](*∗Jean-François Alcover,2017年4月25日,在Alois P.Heinz_x*之后)

%参见A000793、A074859、A256067、A256554。

%别紧张,不是吗

%0.7度

%2002年9月15日

%更多条款请参见2007年3月30日马萨

%更多条款请参见2011年10月4日,肖恩•A•欧文

%2015年3月29日,埃洛伊斯·P·海因茨,更多条款

查找|欢迎光临|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

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

美国东部时间2020年9月18日最后修订时间:05:16。包含337169个序列。(运行在oeis4上。)