搜索： 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/@范围[0，100](*乔瓦尼·雷斯塔2014年3月2日*）
表[Length[Select[Integer Partitions[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]，[4,2]，[4,2]，[5,1]，[5,1]，[6]。
a（7）=8:[3，2，2]，[3，3，1]，[4，2，1]，[4，3]，[5，1，1]，[5，2]，[6，1]，[7]。
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： =proc（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.008秒内完成
|
