|
| |
| |
|
|
|
1, 1, 2, 4, 14, 49, 216, 984, 4862, 24739, 130338, 701584, 3852744, 21489836, 121525520, 695307888, 4019381790, 23446201495, 137875564710, 816646459860, 4868578092510, 29196022525905, 176022392938080, 1066433501134560, 6490009570139784, 39659537885087124, 243278423033093336, 1497584057249141728, 9249144367260811824
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
2,3
|
|
|
评论
|
1;
1, 1;
2, 1, 1;
4, 3, 2, 1;
14, 12, 8, 2, 1;
49, 43, 30, 12, 3, 1;
216, 189, 134, 63, 22, 3, 1;
984, 888, 608, 323, 133, 31, 4, 1;
4862, 4332, 2988, 1671, 759, 238, 48, 4, 1;
...
（结束）
|
|
|
链接
|
|
|
|
配方奶粉
|
参考给出了生成函数。
|
|
|
MAPLE公司
|
B1nm:=程序（n，m）#eq（4.15）
局部j；
如果m>=2且n>=m，则
添加（（3*m-2*j-1）*（2*j-m）*（j-2）*（3*n-j-m-1）/（n-j）/（j-m）/（j-m+1）/（2*m-j）！，j=最小值（n，2*m））；
%*米/（2*n-m）；
其他的
0 ;
结束条件：；
结束进程：
B2wj:=程序（w，j）#eq（8.21）
局部k；
如果w>=j且j>=1且w>=1，则
加（2*k-j+1）*（k-1）*（3*w-k-j）/（k-j+1）/（k-j）/（2*j-k-1）/（w-k）！，k=j.最小值（w，2*j-1）；
%*j/（2*w-j+1）；
其他的
0;
结束条件：；
结束进程：
Brwj:=程序（r，w，j）#等式（8.21）
局部k；
如果w>=j且j>=1且w>=1并且r>1，则
添加（2*k-j）*（k-1）*（3*w-k-j-1）/（（k-j）！）^2/（2*j-k）/（w-k）！，k=j.min（w，2*j））；
%*j/（2*w-j）；
其他的
0 ;
结束条件：；
结束进程：
溴：=过程（r，n，m）
如果r=1，则
B1nm（n，m）；
elif r=2，类型（n，“奇数”）和类型（m，“偶数”），则
B2wj（（n-1）/2，m/2）；
elif modp（n，r）<>0或modp（m，r）>>0，则
0;
其他的
Brwj（r，n/r，m/r）；
结束条件：；
结束进程：
L:=过程（n，m）#等式（6.7）
加法（numtheory[phi]（s）*Brnm（s，n，m），s=numtheori[divisors]（m））；
%/米；
结束进程：
seq（L（n，2），n=2..40）#R.J.马塔尔2019年4月13日
|
|
|
数学
|
B1nm[n，m_]：=如果[m>=2&&n>=m，Sum[（3m-2j-1）（2j-m）（j-2）！（3n-j-m-1）！/（n-j）！/（j-m）！/（j-m+1）！/（2m-j）！，{j，m，Min[n，2m]}]m/（2n-m）！，0];
B2wj[w_，j_]：=如果[w>=j&&j>=1&&w>=1，求和[（2k-j+1）（k-1）！（3w-k-j）！/（k-j+1！，0];
Brwj[r_，w_，j_]：=如果[w>=j&&j>=1&w>=1&&r>1，求和[（2k-j）（k-1）！（3w-k-j-1）！/（（k-j）！）^2/（2j-k）！/！，0];
Brnm[r_，n_，m_]：=其中[r==1，B1nm[n，m]，r==2&&OddQ[n]&&EvenQ[m]，B2wj[（n-1）/2，m/2]，Mod[n，r]！=0||修改[m，r]！=0，0，真，Brwj[r，n/r，m/r]]；
L[n_，m_]：=和[EulerPhi[s]Brnm[s，n，m]，{s，除数[m]}]/m；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
