登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

γ

标志


提示
问候整数序列的在线百科全书!)
A25655 具有k次最小可能阶的n次置换的循环数t(n,k);三角形t(n,k),n>=0, 1 <=k<=A000 9490(n),按行读取。
1, 1, 1、1, 1, 1、1, 1, 2、1, 1, 1、2, 1, 1、1, 1, 1、3, 2, 2、1, 2, 1、3, 2, 2、1, 3, 1、1, 1, 1、4, 2, 4、4, 2, 4、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

0,9

评论

SuMu{{K>=0 }A25653(n,k)*t(n,k)=(n,k)A181844(n)。

链接

Alois P. Heinz行n=0…60,扁平化

例子

三角T(n,k)开始:

α1;

α1;

α1, 1;

α1, 1, 1;

α1, 2, 1,1;

α1, 2, 1,1, 1, 1;

α1, 3, 2,2, 1, 2;

γ1, 3, 2,2, 1, 3,1, 1, 1;

γ1, 4, 2,4, 1, 5,1, 1, 1,1, 1;

1, 4, 3、4, 1, 7、1, 1, 1、2, 2, 1、1, 1;

γ1, 5, 3,6, 2, 9,1, 2, 1,3, 4, 1,1, 1, 1,1;

枫树

B=:PROC(n,i)选项记住;“如果”(n=0或i=1,x,

β-(n,I-1)+(P->Ad)(Co(p,x,t)*x^ ILCM(t,i),

α=t=1°(p))(加法(b(n- i*j,i-1),j=1…n/i))

第二端:

T=:N->(P->SEQ)(H->IF’(H=0,[][H,])(COEFF(p,x,i))

β=1(p))(B(n元2)):

SEQ(t(n),n=0…12);

Mathematica

b[n_, i_] := b[n, i] = If[n == 0 || i == 1, x, b[n, i - 1] + Function[p, Sum[Coefficient[p, x, t]*x^LCM[t, i], {t, 1, Exponent[p, x]}]][Sum[b[n - i*j, i - 1], {j, 1, n/i}]]]; T[n_] := Function[p, Table[Function[h, If[h == 0, {{}, {}}, h]][Coefficient[p, x, i]], {i, 1, Exponent[p, x]}]][b[n, n]]; Table[T[n], {n, 0, 12}] // Flatten (*让弗兰,1月23日2017,翻译为枫树*)

交叉裁判

行和给出A000 000 41.

行长度给出A000 9490.

列k=1-9给出:A000 0 12A000 45 26A00 2264A000 864(N-4)A00 2266A07702A132270A000 864(n-8)为n>7,A000 864(n-9)为n>8。

行的最后元素A074064.

主对角线A07761.

囊性纤维变性。A181844A256067A25653.

语境中的顺序:A87170 A216784A A256067*A32 1649 A000 3650 A05923

相邻序列:γA2565 51 A256562 A25653*A25655 A256566 A256567

关键词

诺恩塔布

作者

阿洛伊斯·P·海因茨,APR 01 2015

地位

经核准的

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

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

最后修改了1月24日0:25 EST 2020。包含331177个序列。(在OEIS4上运行)