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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a245981-编号:a245991
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A245980型 对于[n]中的所有i,满足g^k(f(i))=f(i)的[n]上的内函数对f,g的数目A(n,k);方阵A(n,k),n>=0,k>=0。 +10
14
1, 1, 1, 1, 1, 16, 1, 1, 6, 729, 1, 1, 10, 87, 65536, 1, 1, 6, 213, 2200, 9765625, 1, 1, 10, 141, 8056, 84245, 2176782336, 1, 1, 6, 213, 6184, 465945, 4492656, 678223072849, 1, 1, 10, 87, 9592, 387545, 37823616, 315937195, 281474976710656 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0,6
链接
阿洛伊斯·海因茨,反对角线n=0..80,平坦
例子
方阵A(n,k)开始:
0 : 1, 1, 1, 1, 1, 1, ...
1 : 1, 1, 1, 1, 1, 1, ...
2 : 16, 6, 10, 6, 10, 6, ...
3 : 729, 87, 213, 141, 213, 87, ...
4 : 65536, 2200, 8056, 6184, 9592, 2200, ...
5 : 9765625, 84245, 465945, 387545, 682545, 159245, ...
MAPLE公司
with(numtheory):with(组合):M:=多项式:
b: =proc(n,k,p)局部l,g;l、 g:=排序([除数(p)[]]),
proc(k,m,i,t)选项记忆;局部d,j;d: =l[i];
`如果`(i=1,n^m,加上(m(k,k-(d-t)*j,(d-t,$j)/j*
(d-1)^j*M(M,M-t*j,t$j)*g(k-(d-t)*j,M-t**j,
`如果`(d-t=1,[i-1,0],[i,t+1])[]),j=0..分钟(k/(d-t),
`如果`(t=0,[][],m/t)))
结束;g(k,n-k,nops(l),0)
结束时间:
A: =(n,k)->`如果`(k=0,n^(2*n),加上(b(n,j,k)*
斯特林2(n,j)*二项式(n,j)*j!,j=0..n):
seq(seq(A(n,d-n),n=0..d),d=0..12);
数学
多项式[n_,k_List]:=n/次数@@(k!);M=多项式;
b[n_,k0_,p_]:=模[{l,g},l=排序[Divisors[p]];g[k_,m_,i_,t_]:=g[k,m,i,t]=模[{d,j},d=l[i]];如果[i==1,n^m,求和[m[k,Join[{k-(d-t)*j},Array[(d-t)&,j]]/j*(d-1)^j*M[M,Join[{M-t*j},Array[t&,j]]*如果[d-t==1,g[k-(d-t)*j,M-t*j,i-1,0],g[k-(d-t)*j,M-t*j,i,t+1]],{j,0,Min[k/(d-t;g[k0,n-k0,长度[l],0]];
A[n_,k_]:=如果[k==0,n^(2*n),和[b[n,j,k]*StirlingS2[n,j]*二项式[n,j]*j!,{j,0,n}]];A[0,_]=1;A[1,_]=1;
表[表[A[n,d-n],{n,0,d}],{d,0,12}]//扁平(*Jean-François Alcover公司2015年1月27日之后阿洛伊斯·海因茨*)
交叉参考
主对角线给出A245988型.
囊性纤维变性。A245910型.
关键字
非n,表格
作者
状态
经核准的
第页1

搜索在0.005秒内完成

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

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

上次修改时间:美国东部夏令时2024年4月23日20:33。包含371916个序列。(在oeis4上运行。)