%I#8 2018年1月23日20:06:25

%S 15,16,17,18,19,20,21,22,23,24,25,29,30,31,32,33,34,35,36,37,38,43,44，

%电话：45,46,47,48,49,50,51,57,58,59,60,61,62,63,64,71,72,73,74,75,76,77,85，

%U 86,87,88,89,90,99100101102103113114116127128单位

%以13位数字为基数的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中的指南。

%C与A296751不同，例如171=102_13，这是因为UV（171,13）=2>DV（171,12）=1，而与A29675%不同，因为上升和下降的次数相等_R.J.Mathar，2018年1月23日

%H Clark Kimberling，<a href=“/A297281/b297281.txt”>n，a（n）表，n=1.-10000</a>

%e 128 in base-13:9,11，DV=0，UV=2，因此28在序列中。

%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=13；z=2000；p=表格[x[n，b]，{n，1，z}]；q=表[y[n，b]，{n，1，z}]；

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

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

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

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

%Y参见A297330、A297279、A297280。

%K nonn，基础，简单

%O 1,1号机组

%A_Clark Kimberling_，2018年1月17日