#来自在线整数序列百科全书的问候!http://oeis.org/搜索:id:a276633显示第1-1页,共1页%一A276633%S A276633 0,1,2,3,4,5,6,7,8,9,10,22,33,11,20,34,15,26,30,14,25,36,17,24,35,16,%电话:A276633 27,38,19,40,23,18,44,29,13,45,28,31,46,50,12,37,48,21,39,47,51,32,49,%U A276633 55,60,41,52,63,70,42,53,61,72,43,56,71,80,54,62,73,58,64,77,59,66,74,81,65,79%N A276633 a(N)=序列中没有与a(N-1)和a(N-2)相同的数字的最小整数;a(0)=0,a(1)=1。%cA276633序列不是正整数的置换。E、 例如,123456789和1023456789(最小的泛数字数字)不是成员。%C A276633数字n,使得a(n)=n:0,1,2,3,4,5,6,7,8,9,10,52,147,1619,6140。。。%这个序列是无限的,因为a(n-3)中的所有数字都允许在a(n)中_罗伯特·以色列,2016年9月20日%H A276633扎克·塞多夫和大卫·A。科尼思,n=0..19999的n,a(n)表(扎克·塞多夫2001年第一届任期)。%e A276633,来自大卫A。Corneth_2016年9月22日:(开始)每个数字可以由2^10-1组不同的数字组成,即类。例如,21132在类{1,2,3}中。我们不包括没有数字的数字。对于这个序列,我们也可以排除只有数字0的数字,这样就剩下1022个类。我们为每个类创建一个列表,其中每个类包含序列中不存在的最少数量的类。%我们已经用它来计算,我们已经用它来计算了,我们已经用它来计算了。%e A276633这些类是:{0,1},{2,3},{5,9},{7,9},{8,9},{0,1,6},{0,1,7},{2,2,2}和{2,2,4}具有110,223,95,97,89,106,107,222和224。a(99)=104和a(100)=88,所以我们只能从这些值中选择{223,95,97和222}。列表中的最小值是95。因此,a(101)=95。该类的数字现在被替换为下一个更大的数字,即数字{5,9}(=A276769(95)),即559。%e A276633(我们可以看到在这个例子中我只列出了9个类。类{8,9}在示例中出现两次;a(104)=89和a(107)=98。)%e A276633从计算值列表到一些n,类的值可以被更新以进一步计算。E、 g.为了计算a(20000),可以使用b文件为每个类找到序列中不存在的最小数,然后从a(19998)和a(19999)等继续计算(结束)%p A276633 N:=10^3:#获取第一个>N之前的所有项%p A276633代表R in组合:-动力装置({$0..9})减去{},{$0..9}}做%p A276633上次使用[R]:=[];%p A276633 MR[R]:=阵列[0..9];%p A276633,i从1到nops(R)做MR[R][R[i]]:=i od:%p A276633外径:%p A276633甲[0]:=0:甲[1]:=1:%p A276633 S:={0,1}:%p A276633,从2到n do%p a276633r:={$0..9}减(convert(convert(A[n-1],base,10),set)联合转换(convert(A[n-2],base,10),set));%p A276633 L:=上次使用[R];%p A276633 x:=0;%p A276633,而构件(x,S)则%p A276633,从1 do到d%p A276633如果d>nops(L),则%p A276633如果R[1]=0,则L:=[op(L),R[2]]否则L:=[op(L),R[1]]fi;%p A276633断开%p A276633 elif L[d]<R[-1]则%p A276633左[d]:=R[MR[R][L[d]+1];打破%p A276633其他%p A276633 L[d]:=R[1];%邮政编码:A276633 fi%p A276633外径;%p A276633 x:=加(L[j]*10^(j-1),j=1..nops(L));%p A276633外径;%p A276633 A[n]:=x;%p a276633s:=S并{x};%p A276633上次使用[R]:=L;%p A276633外径:%p A276633序列(A[i],i=0..N)_罗伯特·以色列,2016年9月20日%t276633s={0,1};Do[a=s[[-2]];b=s[[-1]];n=2;idab=联合[整数位数[a],整数位数[b]];而[MemberQ[s,n]| |交集[idab,IntegerDigits[n]]!={},n++];附录[s,n],{100}];s%Y A276633,参见A067581、A086066、A276512、A276769。%K A276633无,底座,简单%O A276633 0,3%2016年9月8日,A276633∗扎克•塞多夫和∗埃里克•安吉里尼#根据OEIS最终用户许可协议提供内容:http://oeis.org/LICENSE