%I#19 2023年8月13日18:12:56
%S 1,2,3,4,5,6,7,8,9,12,21,23,32,34,43,45,54,56,67,76,78,87,89,98,
%电话1232343213454324524565435676578987698712342345,
%电话:3456432456754325678654367897654876598761234523456345674567854215678965432765438765876587654123456234567345678
%数字为非零、连续且全部递增或全部递减的N个数字。
%C有81个术语,对应于以i开头、以j结尾的数字,表示1<=i<=9,1<=j<=9。-_Michael S.Branicky_,2022年5月1日
%H Michael S.Branicky,n表,n=1..81的a(n)</a>
%t连接[Range[9],选择[Range[350000],DigitCount[#,10,0]==0&&(并集[Differences[IntegerDigits[#]]=={1}||并集[Differences[Integer Digits[#]]]=={-1})&]](*H arvey P.Dale_,2023年8月13日*)
%o(Python)
%o def sgn(n):如果n>=0,则返回1,否则返回-1
%o def afull():返回已排序的(int(“”.join(map(str,range(i,j+sgn(j-i),sgn))),对于范围(1,10)中的i,对于范围中的j,(1,0))
%o打印(afull())#_Michael S.Branicky_,2022年5月1日
%Y参考A033075、A082927、A138141、A215014。
%K nonn、base、fini、full
%O 1,2号机组
%根据Ralph Sieber的建议,A _N.J.A.Sloane,2022年5月1日。
|