%I#7 2023年1月27日19:08:52
%S 1,2,3,4,5,6,8,16,24,32,40,48,50,51,52,53,54,55,57,63,64,70,71,72,77,
%电话:78,79,80,84,85,86,87,88,91,92,93,94,95,96,99100101102103104107,
%电话:108109110111114119120121126127129133134135
%以7位为底的数字d(m),d(m-1),…的N个数。。。d(0)有#(上升)=#(下降);请参阅注释。
%C A上升是指数i,使得d(i)<d(i+1);下降是一个指数i,使得d(i)>d(i+1)。序列A296703-A296705划分自然数。请参阅A296712中的指南。
%H Clark Kimberling,n的表,n=1..10000的a(n)</a>
%e 135中以7为基数的数字是2,5,2;这里#(上升)=1和#(下降)=1,因此135在序列中。
%tz=200;b=7;d[n_]:=符号[Differences[Integer Digits[n,b]]];
%t选择[Range[z],Count[d[#],-1]==计数[d[#,1]&](*A296703*)
%t选择[Range[z],Count[d[#],-1]<计数[d[#,1]&](*A296704*)
%t选择[Range[z],Count[d[#],-1]>计数[d[#,1]&](*A296705*)
%Y参见A296704、A296705、A296712。
%K nonn,easy,基本
%O 1,2号机组
%A_Clark Kimberling_,2018年1月7日