%I#4 2018年1月16日11:31:39

%S 8,16,17,24,25,26,32,33,34,35,40,41,42,43,44,48,49,50,51,52,53,56,57，

%电话58,59,60,61,62,64,72,80,88,96104112120128129136137144145，

%U 152153160161168169176177184185192193194200201202

%以8为基数的数字的下变量大于上变量的N个数；请参阅注释。

%C假设n有以b为基数的数字b（m），b（m-1）。。。，b（0）。n的base-b下变量是所有d（i）-d（i-1）的和DV（n，b），其中d（i；n的基-b上变分是d（k）<d（k-1）的所有d（k-1）-d（k）的UV（n，b）之和。n的总碱基b变化量是总和TV（n，b）=DV（n，b）+UV（n，c）。请参阅A297330中的指南。

%H Clark Kimberling，n的表，n的a（n）=1..10000</a>

%e 202以基-8:3,1,2表示，DV=2，UV=1，因此202在序列中。

%t g[n_，b_]：=映射[Total，GatherBy[Differences[IntegerDigits[n，b]]，Sign]]；

%t x[n_，b_]：=选择[g[n，b]，#<0&]；y[n_，b_]：=选择[g[n，b]，#>0&]；

%t b=8；z=2000；p=表格[x[n，b]，{n，1，z}]；q=表[y[n，b]，{n，1，z}]；

%t w=符号[压扁[p/.{}->{0}]+压扁[q/.{}->{0}]]；

%t取[Flatten[位置[w，-1]]，120]（*A297264*）

%t Take[压扁[位置[w，0]]，120]（*A297265*）

%t Take[压扁[位置[w，1]]，120]（*A297266*）

%Y参见A297330、A297265和A297266。

%K nonn，基础，简单

%O 1,1号机组

%A_Clark Kimberling_，2018年1月15日