|
|
1, 1, 1, 2, 3, 4, 6, 7, 8, 12, 15, 18, 25, 28, 34, 44, 51, 59, 75, 87, 103, 124, 143, 163, 198, 228, 261, 310, 354, 404, 479, 538, 612, 708, 802, 907, 1049, 1175, 1320, 1518, 1711, 1910, 2187, 2431, 2724, 3097, 3447, 3843, 4348, 4818, 5373, 6032, 6693, 7420
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,4
|
|
|
链接
|
|
|
|
例子
|
a（0）=1:0=空和。
a（1）=1:1=1*1。
a（2）=1:2=1*2。
a（3）=2:3=1*1+1*2=1*3。
a（4）=3:4=1*1+1*3=1*4=2*2。
a（5）=4:5=1*2+1*3=1*1+1*4=1*1+2*2=1*5。
a（6）=6:6=1*1+1*2+1*3=1*2+1*4=1*2+2*2=1*1+1+5=1*6=2*3。
|
|
|
MAPLE公司
|
带有（数字理论）：
b： =proc（n，m，i，j）选项记忆；
`如果`（n=0，1，`if`（m<1，0，b（n，m-1，i，j）+`如果`（m>n，0，
加（b（n-m，m-1，min（i，k），min（j，m/k）），k=选择（x->
是（x≤min（sqrt（m），i）和m≤j*x，除数（m））））
结束时间：
a： =n->b（n$4）：
seq（a（n），n=0..30）；
|
|
|
数学
|
b[n_，m_，i_，j_]：=b[n，m，i，j]=如果[n==0，1，如果[m<1，0，b[n、m-1，i，j]+如果[m>n，0，总和[b[n-m，m-1，Min[i，k]，Min[j，m/k]]，{k，选择[Divisors[m]，#<=Min[Sqrt[m]、i]&m<=j*#&]}]]]；a[n]：=b[n，n，n；表[a[n]，{n，0，30}](*Jean-François Alcover公司2014年12月4日，之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
|
