A297267-OEIS公司

A297267型

以9为底的数字的下变量大于上变量的数字；请参阅注释。

9, 18, 19, 27, 28, 29, 36, 37, 38, 39, 45, 46, 47, 48, 49, 54, 55, 56, 57, 58, 59, 63, 64, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 78, 79, 81, 90, 99, 108, 117, 126, 135, 144, 153, 162, 163, 171, 172, 180, 181, 189, 190, 198, 199, 207, 208, 216, 217, 225

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

假设n的基数是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型.

链接

克拉克·金伯利，n=1..10000时的n，a（n）表

例子

225英寸底座-9:2,7,0，DV=7，UV=5，因此225在序列中。

数学

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

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

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

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

取[Flatten[Position[w，-1]]，120](*A297267型*)

取[Flatten[Position[w，0]]，120](*A297268型*)

取[Flatten[Position[w，1]]，120](*1972年2月*)