#来自在线整数序列百科全书的问候!搜索:id:a0774064 展现1-1的1-1的1 将一个一个的1个1个的1个;%I a074064;%S a0774064 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,2,1,1,2,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,2,3,1,1,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,4,1,1,1,1,1,1,3,1,1,2,3,1,1,1,1,1,2,3,1,1,1,1,2,3,1,1,1,1,2,4 %N a074064循环类型的数量具有最大可能阶的n阶置换,n=0..180的n,a(n)表%A074064 F A074064系数x^n在扩展和和{i除A000793(n)}mu(A000793(n)/i)*1/产品{j除j除i}(1-x^j)。;%e A074064 For n=22我们有4个这样的循环类型:[1,1,1,3,3,4,4,5,7],[1,2,3,4,5,7],[3,3,4,5,5,7],[3,3,4,5,5,7]。;%p A074064 A000793:=proc(n)选项记住;proc(n)选项记住;proc(n)选项记住;3(n)选项3(n)选项3,1,1,3,3,局部l,p,i;l:=1:p:=组合[分区](n):用于从1到combinat[numpart](n)办Iilcm(p[i][j]$j=1..nops(p[i])))>l那么l:=ilcm(p[i][j]$j=1..nops(p[i[i]));fi:od:返回(l);fi:od:返回(l);结束proc:;%p A0740644 taylInv:=proc(i,n)局部结果,j,idiv,k;结果:=1;idiv:=numtheory[除数除数](i);对于k从1到nops(idiv)的k,做j:=op(k,idiv idiv)op(k,idiv idiv)op(k,idiv)op(k,idiv)p A0740;结果:=结果*泰勒(1/(1-x^j),x=0,n+1);结果:=convert(taylor(resul,x=0,n+1),polynom);od;COFTAY(resul,x=0,n,n);EndProc:;%p A074064 A074064:=proc(n)局部结果,a793,dvs,i,k;结果:=0:a793:=A000793(n);dvs:=numtheory[除数](a793);对于k从1到NOP(dvs)的k,i:=op(k,dvs);结果:=Resu+numtheory[mobius](A7993/i)*Taylinnv93/AY6993/a793/i)*TaylenvA07793/i)Taylenv9(a793/(i,n);od:返回(result);结束proc:#jj.Mathar_,2007年3月30日 %t A074064 b[n n_,i_u]:=b[n,i]=模块[{p},p=若[i<1,1,1,Prime[i]];若[n==0 | | i<1,1,1,Max[b[n,i-1 1],表[p^J*b[n-p[J,i-1],{J,1,Log[p,n,n]]]]]]]]]]];[[n[p,n][[i]]]]];若有[n[n[p,n][i[i[i]]]]]]]]74064g[n_9]:=g[n]=b[n,如果[n<8,3,PrimePi[Ceiling[1.328*Sqrt[n*Log[n]//Floor]]]];;%t A074064 a[n\U]:=a[n]=系列化系数[Sum[MoebiusMu[g[n[n]/i]/产品[1-x^j,{j,除数师[i]}],{i,除数师[g[n]]}]+O[x]^(n+n+1),n];n];;;%t A074064表格[打印[“a(,n,“)=”,a[n]];a[n],[n[n],{n,0,0,100}]([[[珍珍珍-弗朗索瓦弗朗索瓦Alcover UU,弗朗索瓦弗朗索瓦Alcover共同为他们的Alcover[n[n[n[n[2017年4月25日,在 Alois P.Heinz %Y A074064 Cf.A000793,A074859,A256067,A256554.之后 %K A074064 easy,Non %OA074064 0,7 %A A074064 Vladeta Jovovic,2002年9月15日 %E A074064更多条款来自_R.J.Mathar ,2007年3月30日 %E A074064更多条款来自_SeanA.Irvine,2011年10月4日 %E A074064更多条款来自_AloisP.Heinz ,2015年3月29日 根据OEIS最终用户许可协议获取内容:http://OEIS.org/License