OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。

登录

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

 

提示 （来自的问候整数序列在线百科全书!) 247469加元 基思数的平方模拟。 11 1, 9, 37, 40, 43, 62, 70, 74, 160, 1264, 1952, 2847, 12799, 16368, 16584, 42696, 83793, 97415, 182011, 352401, 889871, 925356, 1868971, 1881643, 3661621, 7645852, 15033350, 21655382, 63288912, 88192007, 158924174, 381693521, 792090500, 2025078249, 2539401141 (列表；图表；参考；听；历史；文本；内部格式) 抵消 1、2 评论 与基思数字类似，但从n^2位数开始到n。 考虑一个数字n的平方的位数。取它们的和，重复删除第一个加数并加上前面的和的过程。该序列列出了经过一些迭代后达到等于自身总和的数字。 链接 n=1..35时的n，a（n）表。 例子 1264^2 = 1597696 : 1 + 5 + 9 + 7 + 6 + 9 + 6 = 43; 5 + 9 + 7 + 6 + 9 + 6 + 43 = 85; 9 + 7 + 6 + 9 + 6 + 43 + 85 = 165; 7 + 6 + 9 + 6 + 43 + 85 + 165 = 321; 6 + 9 + 6 + 43 + 85 + 165 + 321 = 635; 9 + 6 + 43 + 85 + 165 + 321 + 635 = 1264. 枫木 其中（numtheory）：P:=proc（q，h）局部a，b，k，n，t，v；v： =阵列（1..h）； 对于从1到q的n do b:=n^2；a： =[]； 对于k从1到ilog10（b）+1，做a:=[（b mod 10），op（a）]；b： =trunc（b/10）；od； 对于从1到nops（a）的k，做v[k]：=a[k]；od；b： =ilog10（n^2）+1； t： =nops（a）+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；od；结束：P（10^610000）； 数学 选择[Range[10^6]，Function[n，Module[{d=IntegerDigits[n^2]，s，k=0}，s=Total@d；而[s<n，AppendTo[d，s]；k++；s=2 s-d[[k]]]；s==n]]](*迈克尔·德弗利格2017年2月22日，之后T.D.诺伊在A007629号*) （*函数keithQ[]定义于A007629号*) a274769[n_]：=连接[{1，9}，选择[Range[10，n]，keithQ[#，2]&]] a274769[10^6](*哈特穆特·F·W·霍夫特2021年6月2日*） 交叉参考 囊性纤维变性。A007629号,A246544号,A263534号,247470美元. 上下文中的序列：A232257号 A091961号 A103758号*A126914号 A337238型 273594英镑 相邻序列：1974年 A274767型 A274768号*247470美元 A274771号 A274772号 关键词 非n,基础 作者 保罗·P·拉瓦2016年7月6日 扩展 a（32）-a（35）来自乔瓦尼·雷斯塔2016年7月8日 状态 经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间：美国东部夏令时2024年6月1日22:36。包含373032个序列。（在oeis4上运行。）