%I#4 2018年1月15日21:08:35

%第8,9,10,11,15,16,17,22,23,29,38,39,40,41,44,45,46,47,50,51,52,53,56页，

%电话：57,58,59,62,63,64,65,68,69,70,71,75,76,77,81,82,83,87,88,89,93,94,95，

%电话：99100101105106107112113118119124125130131136

%以6为基数的数字的上变量大于下变量的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。n的总碱基b变化量是总和TV（n，b）=DV（n，b）+UV（n，c）。请参阅A297330中的指南。

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

%e 136以基-6:3,4,4表示，DV=0，UV=1，因此136在序列中。

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

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

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

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

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

%Y参见A297330、A297258和A297259。

%K nonn，基础，简单

%O 1,1号机组

%A_Clark Kimberling_，2018年1月15日