%I#13 2016年1月4日20:30:49
%S 1,2,3,4,5,6,7,9,10,11,12,13,14,16,17,18,19,20,21,23,24,25,26,27,28,
%电话:30,31,32,33,34,35,37,38,39,40,41,42,44,45,46,47,48,49,50,59,60,61,62,
%U 63、64、65、67、69、70、71、72、74、75、76、77、78、79、81、84、85、87、88、89、91、92、93、95、96、97
%N词法上最早的正数递增序列,不包含长度为8的算术级数。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%p Noap:=过程(N,m)
%无m项算术级数的最早递增序列的p#N项
%p局部A,禁止,n,c,ds,j;
%p A:=矢量(N):
%p A[1..m-1]:=<($1..m-1)>:
%p禁止:={m}:
%p代表n从m到n do
%p c:=最小值({$A[n-1]+1..max(最大值(禁止)+1,A[n-1]+1)}减去禁止);
%p A[n]:=c;
%p ds:=转换(映射(t->c-t,A[m-2..n-1]),集合);
%p代表j从m-2到2乘以-1 do
%p ds:=ds相交转换(映射(t->(c-t)/j,A[m-j-1.n-j]),集);
%p如果ds={},则破坏fi;
%p od;
%p禁止:=选择(`>`,禁止,c)联合映射(`+`,ds,c);
%日期:
%p转换(A,列表)
%p端程序:
%p Noap(100,8);#_罗伯特·伊斯雷尔(Robert Israel),2016年1月4日
%Y避免指定长度算术级数的递增序列汇总(每对中的第二个是通过将1加到第一个数列中获得的):
%Y三期AP:A005836(>=0),A003278(>0);
%Y四期AP:A005839(>=0),A005837(>0);
%Y五项AP:A020654(>=0),A020655(>0);
%Y 6期AP:A020656(>=0),A005838(>0);
%Y 7项AP:A020657(>=0),A020658(>0);
%Y 8项AP:A020659(>=0),A020660(>0);
%Y 9项AP:A020661(>=0),A020662(>0);
%Y 10项AP:A020663(>=0),A020664(>0)。
%K nonn公司
%O 1,2号机组
%A·热心的W·威尔逊_
|