登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A247005型 [n]上的置换数A(n,k)是置换的k次幂;方阵A(n,k),n>=0,k>=0。 12
1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 6, 1, 1, 1, 2, 3, 24, 1, 1, 1, 1, 4, 12, 120, 1, 1, 1, 2, 3, 16, 60, 720, 1, 1, 1, 1, 6, 9, 80, 270, 5040, 1, 1, 1, 2, 1, 24, 45, 400, 1890, 40320, 1, 1, 1, 1, 6, 4, 96, 225, 2800, 14280, 362880, 1, 1, 1, 2, 3, 24, 40, 576, 1575, 22400, 128520, 3628800, 1 (列表;桌子;图表;参考文献;;历史;文本;内部格式)
抵消
0,9
评论
[n]上的置换数p,使得[n]的置换q以p=q^k存在。
链接
阿洛伊斯·海因茨,反对角线n=0..140,平坦
H.S.Wilf,生成函数学,第2版。,纽约学术出版社,1994年,定理4.8.2。
例子
A(3,0)=1:(1,2,3)。
A(3,1)=6:(1,2,3),(1,3,2),(2,1,3)。
A(3,2)=3:(1,2,3),(2,3,1),(3,1,2)。
A(3,3)=4:(1,2,3),(1,3,2),(2,1,3)。
方阵A(n,k)开始:
1, 1, 1, 1, 1, 1, 1, 1, 1, ...
1, 1, 1, 1, 1, 1, 1, 1, 1, ...
1, 2, 1, 2, 1, 2, 1, 2, 1, ...
1, 6, 3, 4, 3, 6, 1, 6, 3, ...
1, 24, 12, 16, 9, 24, 4, 24, 9, ...
1, 120, 60, 80, 45, 96, 40, 120, 45, ...
1, 720, 270, 400, 225, 576, 190, 720, 225, ...
1, 5040, 1890, 2800, 1575, 4032, 1330, 4320, 1575, ...
MAPLE公司
with(组合):with(numtheory):with(padic):
b: =proc(n,i,k)选项记忆`如果`(n=0,1,`如果`(i<1,0,添加(
`如果`(irem(j,mul(p^ordp(k,p),p=系数集(i)))=0,(i-1)^j个*
多项式(n,n-i*j,i$j)/j*b(n-i*j,i-1,k),0),j=0..n/i))
结束时间:
A: =(n,k)->`如果`(k=0,1,b(n$2,k)):
seq(seq(A(n,d-n),n=0..d),d=0..14);
数学
多项式[n_,k_List]:=n/次数@@(k!);b[_,1,_]=1;b[n_,i_,k_]:=b[n,i,k]=如果[n==0,1,如果[i<1,0,Sum[If[Mod[j,乘积[p^IntegerExponent[k,p],{p,因子整型[i][[All,1]}]]==0,(i-1)^j*多项式[n,Join[{n-i*j},数组[i&,j]]/j*b[n-i*j,i-1,k],0],{j,0,n/i}]];A[n_,k_]:=如果[k==0,1,b[n,n,k]];表[A[n,d-n],{d,0,14},{n,0,d}]//展平(*Jean-François Alcover公司,2017年1月14日,之后阿洛伊斯·海因茨*)
交叉参考
主对角线给出A247009型.
囊性纤维变性。A247026型(内函数也是如此)。
关键字
非n,表格
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月24日04:14。包含371918个序列。(在oeis4上运行。)