%I#23 2020年2月5日16:54:45
%S 0101,10,1,12,11,14,13,16,15,18,17,70,7,72,21,23,20,25,22,27,24,29,
%电话:26,61,6,63,30,3,32,31,34,33,36,35,38,37,74,41,4,43,40,45,42,47,44,49,
%U 46,65,50,5,52,51,54,53,56,55,58,57,76,67,60,69,62121,28,81,8
%N a(N)是与N具有相同奇偶校验的最小非负整数,不在序列中,与a(N-1)共享一个数字;a(0)=0。
%C猜想:这是非负整数的置换。
%C一位数整数按以下顺序出现:0,1,7,2,6,3,4,5,8,9。
%H Robert Israel,n的表,a(n)表示n=0..10000</a>
%e a(1)=101,因为101是与a(0)=0共享数字0的序列中尚未出现的最小奇数非负整数;
%e a(2)=10,因为10是与a(1)=101共享数字0(和1)的序列中尚未出现的最小偶数非负整数。
%p N:=1000:#第一学期前停止>N
%p S0:=[序列(i,i=2..N,2)]:S1:=[顺序(i,i=1..N,2)]:
%p D0:=映射(t->转换(转换(t,基数,10),集合),S0):
%p D1:=映射(t->转换(转换(t,基数,10),集合),S1):
%p A[0]:=0:Da:={0}:找到:=true:
%当找到do时,从1中p代表n
%发现p:=false;
%p如果n::即使如此
%p代表j从1到nops(D0)do
%p如果Da与D0[j]<>{}相交,则
%发现p:=true;
%pA[n]:=S0[j];
%p Da:=D0[j];
%p S0:=底土(j=NULL,S0);
%p D0:=亚p(j=空,D0);
%p断点
%功率因数
%日期
%p其他
%p代表j从1到nops(D1)do
%p如果Da与D1[j]<>{}相交,则
%p已找到:=真;
%pA[n]:=S1[j];
%p Da:=D1[j];
%p S1:=底土(j=NULL,S1);
%p D1:=底土(j=NULL,D1);
%p断点
%功率因数
%日期
%功率因数
%日期:
%p序列(A[i],i=0..n-2);#_罗伯特·伊斯雷尔,2020年2月5日
%Y参见A107353、A297352和A297353。
%K nonn,基础
%0、2
%A_Enrique Navarrete,2018年8月31日
|