%I#34 2023年8月19日19:04:02

%S 1,2,3,4,5,6,8,9,10,11,12,13,15,16,17,18,19,20,22,23,24,25,26,27,29，

%电话：30,31,32,33,34,36,37,38,39,40,41,50,51,52,53,54,55,57,58,59,60,61,62，

%U 64,65,66,67,68,69,71,72,73,74,75,76,78,79,80,81,82,83,85,86,87,88,89,90,99

%N词法上最早的正数递增序列，不包含长度为7的算术级数。

%C这与A047304不同：注意41和50之间的间隙_M.F.Hasler，2014年10月7日

%H Robert Israel，<a href=“/A0020658/b020658.txt”>n的表格，a（n）表示n=1.-10000</a>

%F a（n）=A020657（n）+1.-_M.F.Hasler，2014年10月7日

%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,7）；#_罗伯特·伊斯雷尔（Robert Israel），2016年1月4日

%t选择[Range[0，100]，FreeQ[IntegerDigits[#，7]，6]&]+1（*_Jean-François Alcover_，2023年8月18日，在_M.F.Hasler_*之后）

%Y参考A047304。

%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·威尔逊_