%I#5 2018年1月15日15:31:28

%S 3,6,7,9,12,15,18,19,21,22,24,25,27,30,33,36,39,42,45,48,51,54,55,57，

%电话58,60,61,63,64,66,67,69,70,72,73,75,76,78,79,81,84,87,90,93,96,99，

%电话：102105108111114117120123126129132135138141144147

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

%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=1..10000的a（n）</a>

%e 147在碱基-3:1,3,1,1,0中，具有DV=3，UV=2，因此147在序列中。

%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=3；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]（*A297249*）

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

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

%Y参见A297250、A297251、A297330。

%K nonn，基础，简单

%O 1,1号机组

%A_Clark Kimberling_，2018年1月15日