搜索: 编号:a238433
|
|
|
|
1, 1, 2, 2, 4, 5, 6, 8, 13, 12, 19, 23, 29, 35, 45, 52, 68, 80, 98, 111, 141, 163, 198, 230, 283, 320, 376, 443, 517, 585, 719, 799, 932, 1085, 1254, 1417, 1668, 1861, 2138, 2449, 2804, 3166, 3666, 4083, 4662, 5277, 5960, 6676, 7651, 8494, 9635, 10803, 12157
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
例子
|
a(8)=13这样的分区是:
01: [ 1 1 2 4 ]
02: [ 1 1 3 3 ]
03: [ 1 1 6 ]
04: [ 1 2 2 3 ]
05: [ 1 2 5 ]
06: [ 1 3 4 ]
07年:[17]
08: [ 2 2 4 ]
09: [ 2 3 3 ]
10:[2 6]
11:[3 5]
12: [ 4 4 ]
13: [ 8 ]
请注意,第四个分区具有算术级数1,2,3,但不在等距位置。
|
|
MAPLE公司
|
b: =proc(n,i,l)局部j;
对于j从2到iquo(nops(l)+1,2)do
如果l[1]-l[j]=l[j]-l[2*j-1],则返回0 fiod;
`如果`(n=0,1,`如果`(i<1,0,b(n,i-1,l)+
`如果`(i>n,0,b(n-i,i,[i,l[]]))
结束时间:
a: =n->b(n,n,[]):
seq(a(n),n=0..40);
|
|
数学
|
b[n_,i_,l_]:=b[n,i,l]=模[{j},对于[j=2,j<=商[Length[l]+1,2],j++,如果[l[[1]]-l[j]]==l[[j]]-l[[2*j-1]],返回[0]]];如果[n==0,1,如果[i<1,0,b[n,i-1,l]+如果[i>n,0,b[n-i,i,Prepend[l,i]]]];
a[n]:=b[n,n,{}];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.003秒内完成
|