A062010-出口

A062010型

设n=Sum_i d_i*10^i（0<=d_i<=9）是n的十进制展开式。如果Sum_i d_i*b^i在max d_i<b<10的范围内，将n除以某个基数b>=2，则n就是序列中的n。

1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 20, 21, 30, 40, 100, 102, 112, 120, 200, 204, 210, 300, 306, 312, 400, 414, 420, 516, 522, 624, 630, 1000, 1010, 1102, 1120, 1232, 1320, 1344, 1422, 2000, 2223, 2240, 2301, 2310, 3000, 3430, 4000, 10000, 10100, 10101, 10356

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

抵消

1,2

换句话说，如果将一个正数n解释为一个以小于10为基数的合法数字，则结果除以n，则该正数n位于序列中。

旧的定义是“数字，当以较小的基数表示时，会成为自身的一个因素。”

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..301时的n，a（n）表

例子

在基数7中，102是51，它除以102，所以102在序列中。

8在序列中，因为以9为底的8是8，8除以8。

但是9不在序列中，因为9到10之间没有碱基b。同样，所有十进制展开式中带有9的数字都被排除在外。

数学

dtn[L_，b_]：=折叠[b#1+#2&，0，L]；f[n_]：=f[n]=表[dtn[整数位数[n，b]，10]，{b，2，9}]；g[n_]：=成员Q[Flatten[Map[f，Divisors[n]]]，n]；选择[范围[20000]，g]

rdnQ[n_]：=AnyTrue[n/FromDigits[IntegerDigits（整数数字）[n]，Range[Max[Integer Digits[n]]+1，9]]，IntegerQ]；选择[Range[11000]，rdnQ]（*程序使用Mathematica版本10*中的AnyTrue函数）(*哈维·P·戴尔2016年7月16日*）

黄体脂酮素

（哈斯克尔）

导入数据。列表（展开器）

a062010 n=a062010_列表！！（n-1）

a062010_list=过滤器f[1..]，其中

f x=任何（==0）$map（mod x）更低，其中

下部=地图bas[1+a054055 x..9]

bas b=折叠（\v d->b*v+d）0 bas10

bas10=反向$unwrapper dig x，其中

dig n=如果n==0，则无其他内容，仅$swap$divMod n 10

--莱因哈德·祖姆凯勒2011年10月9日

交叉参考