登录

年度呼吁:请向OEIS基金会捐款支持OEIS的持续开发和维护。现在是我们的第61年,我们有超过378000个序列,我们已经获得了11000条引文(通常说“多亏了OEIS才发现”)。

A358851型
a(n+1)是[a(0),a(1),…,a(n)]所有数字中a(n。
0, 1, 1, 2, 1, 3, 1, 4, 1, 5, 1, 6, 1, 7, 1, 8, 1, 9, 1, 10, 11, 13, 2, 2, 3, 3, 4, 2, 4, 3, 5, 2, 5, 3, 6, 2, 6, 3, 7, 2, 7, 3, 8, 2, 8, 3, 9, 2, 9, 3, 10, 15, 4, 4, 5, 5, 6, 4, 6, 5, 7, 4, 7, 5, 8, 4, 8, 5, 9, 4, 9, 5, 10, 17, 6, 6, 7, 7, 8, 6
抵消
0,4
评论
当a(19)=10时,术语与248034元分支(不同的术语行表示前一术语的最大数字)可以用计数器数字标记(如散点图所示)。从9到1,树枝逐渐变得支离破碎。在数字5以下,在某些地方很难解开树枝。还会出现重复图案(如散点图的插图所示)。
链接
埃里克·安吉利尼,数字计数器自我更新
本斯·伯纳,n=0..50000的散点图
迈克尔·德弗利格,a(n)的对数散点图n=1..10^6。
迈克尔·德弗利格,a(n)的对数散点图,n=1..10^5,颜色函数表示前一项的最大数字,其中黑色=0,红色=1,橙色=2。。。,洋红=9。
数学
nn=79;s[_]=0;a[0]=0;Do[(设置[d,最大[#]];映射[s[#1]+=#2@@#&,计数[#]]])@@IntegerDigits[a[n-1]];a[n]=s[d],{n,nn}];数组[a,nn+1,0](*迈克尔·德弗利格2022年12月28日*)
黄体脂酮素
(MATLAB)
长度=150;
序列(1)=0;
seq_for_digits=(数字2str(序列(1))-“0”);
对于i1=1:1:length_seq
序列(i1+1)=总和(seq_for_digits==最大值((num2str(序列(i1))-“0”));
seq_for_digits=[序列for_digit,num2str(序列(i1+1))-“0”];
结束
(Python)
序列=[0]
长度=150
seq_for_digits=列表(map(int,list(str(sequence[0])))
对于范围(长度)内的ii:
sequence.append(seq_for_digits.count(最大值(列表(映射(int,列表(str(序列[-1]))))
seq_for_digits.extend(列表(映射(int,列表(str(序列[-1]))))
关键词
非n,基础
作者
本斯·伯纳斯2022年12月8日
状态
经核准的