|
1, 2, 3, 5, 6, 8, 9, 10, 15, 16, 17, 19, 26, 27, 29, 30, 31, 34, 37, 49, 50, 51, 53, 54, 56, 57, 58, 63, 65, 66, 67, 80, 87, 88, 89, 91, 94, 99, 102, 105, 106, 109, 110, 111, 122, 126, 136, 145, 149, 151, 152, 160, 163, 167, 169, 170, 171, 174, 176, 177, 183, 187, 188, 194, 196
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
参考文献
|
N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
|
|
链接
|
|
|
MAPLE公司
|
Noap:=过程(N,m)
#没有m项算术级数的最早递增seq的N项
局部A,禁止,n,c,ds,j;
A: =矢量(N):
A[1..m-1]:=<($1..m-1)>:
禁止:={m}:
对于n从m到n do
c: =最小值({$A[n-1]+1..max(最大值(禁止)+1,A[n-1]+1)}减去禁止);
A[n]:=c;
ds:=转换(映射(t->c-t,A[m-2...n-1]),集合);
j从m-2到2乘以-1 do
ds:=ds相交转换(映射(t->(c-t)/j,A[m-j-1..n-j]),集合);
如果ds={},则断fi;
od;
禁止:=选择(`>`,禁止,c)联合映射(`+`,ds,c);
日期:
转换(A,列表)
结束进程:
|
|
数学
|
t={1,2,3};Do[s=表[Append[i,n],{i,子集[t,{3}]}];如果[!MemberQ[表[Differences[i,2],{i,s}],{0,0}],AppendTo[t,n]],{n,4,200}];t吨(*T.D.诺伊2014年4月17日*)
|
|
交叉参考
|
避免指定长度算术累进的递增序列汇总(每对中的第二个序列通过第一个序列加1得到):
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|