%I#6 2018年2月23日09:46:49
%S 1,11,9,3,17,4,8,12,10,2,18,5,7,13,14,6,15,27,25,37,35,47,45,57,55,65,
%电话:56,16,26,36,46,66,54,28,24,38,34,48,44,58,62,20,22,30,32,40,42,50,52,
%U 60,61,21,31,41,51,69,23,19,33,29,43,39,53,49,63,59,64,68
%N词法上的第一个正整数序列,例如a(N)+a(N+1)有一个数字2,并且没有两次出现任何项。
%C正整数的置换。
%o(PARI)a(n,f=1,d=2,a=1,u=[a])={对于(n=2,n,f&&if(f=1,print1(a“,”),write(f,n-1,“a));对于(k=u[1]+1,oo,setsearch(u,k)&&next;setsearch(Set(digits(a+k)),d)&&(a=k)&&break);u=setunion(u,[a]);u[2]=u[1]+1&&u=u[^1]);a}
%Y参见A299970(模拟数字0)、A299957(数字1)、A2999 73..A299979(数字3..9)。
%K nonn,基础
%O 1,2号机组
%A _M.F.Hasler和_Eric Angelini,2018年2月22日
|