A269312-组织环境信息系统

OEIS由支持OEIS基金会的许多慷慨捐赠者.

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

链接

拉尔斯·布隆伯格，n=1..663时的n，a（n）表

例子

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，dov[b-k+1]：=（a mod 10）；a:=trunc（a/10）；od；t:=b+1；v[t]：=加（v[k]，k=1..b）；c：=n*加（op（2，p）/op（1，p），p=系数（n）[2]）；

而v[t]<c做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日*）

交叉参考

囊性纤维变性。A003415号,A007629号,A269307型,A269308型,A269309型,A269310型,A269311型.

上下文中的序列：A009961号 A059997号 A007588号*A129025号 A113907号 A125740型

相邻序列：A269309型 A269310型 A269311型*A269313型 A269314型 A269315型

关键词

非n,基础

作者

保罗·拉瓦2016年2月24日

状态

经核准的