搜索: a238433-编号:a238432
|
|
|
|
1, 1, 2, 2, 4, 5, 6, 8, 13, 13, 19, 24, 30, 36, 47, 54, 72, 85, 106, 123, 151, 178, 220, 256, 314, 362, 432, 505, 605, 692, 827, 953, 1121, 1303, 1522, 1729, 2037, 2321, 2691, 3095, 3577, 4061, 4699, 5334, 6126, 6959, 7966, 9005, 10317, 11638, 13252, 14977
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
此外,n的分区数的第一个差异是反运行的,这意味着没有相邻的相等差异-古斯·怀斯曼2020年3月31日
|
|
链接
|
瓦茨拉夫·科特索维奇,n=0..1000时的n,a(n)表(条款0..300来自Joerg Arndt和Alois P.Heinz,条款301.350来自Fausto A.C.Cariboni)
|
|
例子
|
a(8)=13这样的分区是:
01: [ 3 2 2 1 ]
02: [ 3 3 1 1 ]
03: [ 3 3 2 ]
04: [ 4 2 1 1 ]
05: [ 4 2 2 ]
06: [ 4 3 1 ]
07: [ 4 4 ]
08: [ 5 2 1 ]
09: [ 5 3 ]
10: [ 6 1 1 ]
11: [ 6 2 ]
12: [ 7 1 ]
13: [ 8 ]
|
|
数学
|
a[n_,r_,d_]:=a[n,r,d]=块[{j},如果[n==0,1,和[If[j==r+d,0,a[n-j,j,j-r]],{j,Min[n,r]}]];a[n]:=a[n,2*n+1,0];a/@范围[0100](*乔瓦尼·雷斯塔2014年3月2日*)
表[Length[Select[IntegerPartitions[n]!成员Q[差异[#,2],0]&]],{n,0,30}](*古斯·怀斯曼2020年3月31日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 2, 2, 4, 5, 6, 8, 12, 12, 19, 23, 27, 34, 43, 49, 62, 74, 88, 104, 127, 145, 176, 199, 239, 272, 324, 378, 430, 490, 583, 654, 750, 876, 988, 1112, 1291, 1441, 1642, 1877, 2121, 2358, 2682, 2977, 3365, 3830, 4237, 4734, 5357, 5868, 6590, 7398, 8182, 9049
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
例子
|
a(3)=2:[2,1],[3]。
a(4)=4:[2,1,1],[2,2],[3,1],[4]。
a(5)=5:[2,2,1],[3,1,1],[3,2],[4,1],【5】。
a(6)=6:[2,2,1,1],[3,3],[4,1,1],[4],[5,1],[6]。
a(7)=8:[3,2,2],[3,3,1],[4,2,1],[4],[5,1,1],[5,2],[6,1],[07]。
a(8)=12:[3,3,1,1],[3,2,2],[4,2,1,1],[4,1,2],[C,3,1],[C,4],[5,2,1],[5,3],[6,1,1]、[6,2]、[7,1],[8]。
|
|
数学
|
a[n_]:=a[n]=计数[IntegerPartitions[n],P_/;{}==序列位置[P,{___,i_,___,j_,____,k_,___}/;j-i==k-j,1]];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A238687型
|
| n中没有三个点(i,p_i),(j,p_j),(k,p_k)共线的分区数p,其中p_i表示第i部分。 |
|
+10 6
|
|
|
1, 1, 2, 2, 4, 5, 6, 8, 13, 10, 18, 21, 27, 29, 41, 41, 62, 65, 77, 91, 114, 127, 151, 173, 213, 232, 279, 322, 372, 410, 491, 518, 630, 724, 814, 894, 1057, 1141, 1326, 1502, 1681, 1839, 2146, 2324, 2636, 2966, 3272, 3607, 4173, 4422, 5035, 5616, 6195, 6703
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
例子
|
有一个(10)=18个这样的分区:[6,2,1,1],[5,2,2],[4,4,1,1],[3,3,2],[8,1,1]、[7,2,1]、[6,3,1]、[2,2]、[5,4,1]、[5,3,2],[4,2]、[4,3]、[9,1]、[0,2]和[7,3],[6,4],[5],[10]。
|
|
MAPLE公司
|
b: =程序(n,i,l)局部j,k,m;m: =nops(l);
对于j到m-2 do对于k从j+1到m-1 do
如果(l[m]-l[k])*(k-j)=(l[k]-l[j])*
然后返回0 fiod od;
`如果`(n=0,1,`如果`(i<1,0,b(n,i-1,l)+
`如果`(i>n,0,b(n-i,i,[l[],i]))
结束时间:
a: =n->b(n,n,[]):
seq(a(n),n=0..40);
|
|
数学
|
b[n_,i_,l_]:=模[{j,k,m=Length[l]},对于[j=1,j<=m-2,j++,对于[k=j+1,k<=m-1,k++,如果[(l[[m]]-l[k]])*(k-j)==(l[k]]-l[j]])x(m-k),返回[0]]];如果[n==0,1,如果[i<1,0,b[n,i-1,l]+如果[i>n,0,b[n-i,i,追加[l,i]]]];
a[n]:=b[n,n,{}];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 1, 2, 3, 7, 13, 22, 41, 74, 133, 233, 400, 714, 1209, 2091, 3591, 6089, 10316, 17477, 29413, 49515, 82474, 137659, 228461, 377936, 623710, 1025445, 1680418, 2746242, 4474654, 7270430, 11774128, 19020802, 30640812, 49222427, 78857338, 126033488, 200872080
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
链接
|
|
|
例子
|
a(5)=13的此类成分为:
01: [ 1 1 2 1 ]
02: [ 1 1 3 ]
03: [ 1 2 1 1 ]
04: [ 1 2 2 ]
05: [ 1 3 1 ]
06: [ 1 4 ]
07: [ 2 1 2 ]
08: [ 2 2 1 ]
09: [ 2 3 ]
10: [ 3 1 1 ]
11: [ 3 2 ]
12: [ 4 1 ]
13: [ 5 ]
请注意,第一和第三个组合包含级数1、1、1,但位置不相等。
|
|
MAPLE公司
|
b: =proc(n,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,加(b(n-i,[i,l[]]),i=1..n))
结束时间:
a: =n->b(n,[]):
seq(a(n),n=0..20);
|
|
数学
|
b[n_,l]:=b[n,l]=模[{j},对于[j=2,j<=商[Length[l]+1,2],j++,如果[l[[1]]-l[j]]==l[[j]-l[[2*j-1]],返回[0]]];如果[n==0,1,和[b[n-i,前缀[l,i]],{i,1,n}]];
a[n_]:=b[n,{}];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.005秒内完成
|