|
| |
|
| A269311型 |
| 考虑一个数字x的算术导数。取其数字之和。重复此过程，删除第一个补遗并添加上一个总和。序列列出了经过一些迭代后达到x的数字。 |
|
6
|
|
|
|
8, 18, 21, 160, 1590, 2420, 18620, 69229, 83790, 279964, 494520, 598810, 676450, 1183147, 4233720, 5600348, 14217074, 20025836, 64278677, 425208387, 604048830, 750851470, 1981942354
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
8’ = 12 : 1 + 2 = 3; 2 + 3 = 5; 3 + 5 = 8.
18’ = 21 : 2 + 1 = 3; 1 + 3 = 4; 3 + 4 = 7; 4 + 7 = 11; 7 + 11 = 18.
|
|
|
MAPLE公司
|
使用（数字理论）：P:=proc（q，h）局部a，b，k，P，t，v；全球n；v： =阵列（1..h）；
对于从1到q的n，做a:=n*加（op（2，p）/op（1，p），p=ifactors（n）[2]）；b： =ilog10（a）+1；如果b>1，则
对于从1到b的k，dov[b-k+1]：=（a mod 10）；a： =trunc（a/10）；od；t： =b+1；v[t]：=加（v[k]，k=1..b）；
而v[t]<n dot：=t+1；v[t]：=加（v[k]，k=t-b..t-1）；od；
如果v[t]=n，则打印（n）；fi；fi；od；结束：P（10^91000）；
|
|
|
数学
|
dn[n_]：=如果[绝对值@n<2，0，n总计[#2/#1&@@@FactorInteger[绝对值@n]]]；（*来自迈克尔·索莫斯2011年4月12日*）
选择[Range[10^5]，dn[#]>=10&&（d=IntegerDigits[dn[#]）；而[Total[d]<#，d=Join[Rest[d]，{Total[d]}]]；Total[d:=#）&](*罗伯特·普莱斯2019年5月22日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
