|
| |
|
| A269312型 |
| 考虑一个数字x。取其数字之和。重复此过程，删除第一个补遗并添加上一个总和。序列列出了经过一些迭代后达到x的算术导数的数字。 |
|
7
|
|
|
|
14, 51, 145, 285, 629, 708, 807, 1318, 2362, 2548, 2869, 3789, 4087, 4811, 6031, 6355, 10201, 15563, 17143, 17287, 17561, 19883, 20567, 21731, 22429, 23461, 26269, 27301, 30967, 33389, 69529, 73211, 85927, 86087, 90133, 96781, 110159, 116011, 159767, 161701, 162055, 190079
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
14’ = 9 : 1 + 4 = 5; 4 + 5 = 9.
51’ = 20 : 5 + 1 = 6; 1 + 6 = 7; 6 + 7 = 13; 7 + 13 = 20.
|
|
|
MAPLE公司
|
使用（数字理论）：P:=proc（q，h）局部a，b，c，k，n，P，t，v；v： =阵列（1..h）；
对于从1到q的n，做a:=n；b： =ilog10（a）+1；如果b>1，则
对于从1到b的k do v[b-k+1]：=（a mod 10）；a： =截断（a/10）；od；t： =b+1；v[t]：=加（v[k]，k=1..b）；c： =n*加法（op（2，p）/op（1，p），p=ifactors（n）[2]）；
而v[t]<c do t：=t+1；v[t]：=加法（v[k]，k=t-b..t-1）；od；
如果v[t]=c，则打印（n）；fi；fi；od；结束：P（10^91000）；
|
|
|
数学
|
dn[n_]：=如果[绝对值@n<2，0，n总计[#2/#1&@@@FactorInteger[绝对值@n]]]; （*继Michael Somos之后，2011年4月12日*）
选择[Range[10^5]，#>=10&&（s=dn[#]；d=IntegerDigits[#]）；而[Total[d]<s，d=Join[Rest[d]，{Total[d]}]]；Total[d:=s）&](*罗伯特·普莱斯2019年5月22日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
