|
| |
|
| A241981型 |
| [n]上内函数的个数T（n，k），其中最大循环长度等于k；三角形T（n，k），n>=0，0<=k<=n，按行读取。 |
|
13
|
|
|
|
1, 0, 1, 0, 3, 1, 0, 16, 9, 2, 0, 125, 93, 32, 6, 0, 1296, 1155, 500, 150, 24, 0, 16807, 17025, 8600, 3240, 864, 120, 0, 262144, 292383, 165690, 72030, 24696, 5880, 720, 0, 4782969, 5752131, 3568768, 1719060, 688128, 215040, 46080, 5040
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
0,5
|
|
|
评论
|
根据惯例，T（0,0）=1。
|
|
|
链接
|
|
|
|
例子
|
三角形T（n，k）开始于：
1;
0, 1;
0, 3, 1;
0, 16, 9, 2;
0, 125, 93, 32, 6;
0, 1296, 1155, 500, 150, 24;
0, 16807, 17025, 8600, 3240, 864, 120;
0, 262144, 292383, 165690, 72030, 24696, 5880, 720;
...
|
|
|
MAPLE公司
|
使用（combint）：
b： =proc（n，i）选项记忆`如果`（n=0，1，`如果`（i<1，0，
添加（（i-1）^j*多项式（n，n-i*j，i$j）/j*
b（n-i*j，i-1），j=0..n/i））
结束时间：
A： =（n，k）->加（二项式（n-1，j-1）*n^（n-j）*b（j，min（j，k）），j=0..n）：
T： =（n，k）->A（n，k）-`如果`（k=0，0，A（n、k-1））：
seq（seq（T（n，k），k=0..n），n=0..10）；
|
|
|
数学
|
多项式[n_，k_List]：=n/次数@@（k！）；b[n_，i_]：=b[n，i]=如果[n==0，1，如果[i<1，0，Sum[（i-1）！^j*多项式[n，{n-i*j，序列@@表[i，{j}]}]/j*b[n-i*j，i-1]，{j，0，n/i}]]；A[n_，k_]：=和[二项式[n-1，j-1]*n^（n-j）*b[j，Min[j，k]]，{j，0，n}]；T[0,0]=1；T[n_，k_]：=A[n，k]-如果[k==0，0，A[n、k-1]]；表[Table[n，k]，｛k，0，n｝]，｛n，0，10｝]//压扁(*Jean-François Alcover公司2015年1月6日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
