登录
A093792号
吊钩产品的所有隔断13个。
0
290304, 290304, 302400, 302400, 362880, 362880, 388800, 414720, 414720, 483840, 483840, 518400, 518400, 518400, 518400, 537600, 537600, 544320, 544320, 604800, 604800, 665280, 665280, 691200, 691200, 725760, 725760, 725760, 798336, 798336, 844800, 844800, 907200
抵消
1,1
链接
Jean-François Alcover,n=1时的n,a(n)表。.101
配方奶粉
a(n)=13/A003877号(102-n)。
MAPLE公司
H: =proc(pa)局部F,j,p,Q,i,col,a,a:F:=proc(x)局部i,ct:ct:=0:对于i从1到nops(x)do,如果x[i]>1,那么ct:=ct+1其他fiod:ct;结束:对于从1到nops(pa)的j,do p[1][j]:=pa[j]od:Q[1]:=[seq(p[1][j],j=1..nops(pa))]:对于从2到pa[1]的i,do for j,from 1到F(Q[i-1])do p[i][j]:=Q[i-2][j]-1 od:Q[i]:=[seq[i]:=[seq(Q[i][j]+nops(Q[i)-j,j=1..nops(Q[i]))]od:a:=proc(i,j),如果i<=nops(Q[j])和j<=pa[1],则Q[j][i]+nops(Q[j])-ielse 1 fi end:A:=矩阵(nops(pa),pa[1],A):乘积(乘积(A[m,n],n=1..pa[1]),m=1..nops(pa));end:with(组合):rev:=proc(a)[seq(a[nops(a)+1-i],i=1..nops(a))]end:排序([seq[H(rev(partition(13)[q])),q=1..numbert(13)]));
数学
h[l]:=使用[{n=长度[l]},总计[l]/乘积[1+l[[i]]-j+和[If[l[[k]]>=j,1,0],{k,i+1,n}],{j,1;
g[n_,i_,l_]:=如果[n==0||i==1,h[Join[l,Array[1&,n]],如果[i<1,0,展平@表[g[n-i*j,i-1,Join[1,Array[i&,j]]],{j,0,n/i}]];
T[n]:=g[n,n,{}];
排序[13!/T[13]](*让-弗朗索瓦·奥尔科弗2024年9月22日之后阿洛伊斯·海因茨在里面A060240型*)
交叉参考
囊性纤维变性。A003877号,A060240型.
第n行=第13行,共A093784号.
关键词
完成,满的,非n,改变
作者
Emeric Deutsch公司,2004年5月17日
状态
经核准的