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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A023109号 a(0)=0。对于n>0,最小的非倒数k,这样倒数和加数中的最小回文!k的轨迹是在n次迭代后得到的。 35
0, 10, 19, 59, 69, 166, 79, 188, 193, 1397, 829, 167, 2069, 1797, 849, 177, 1496, 739, 1798, 10777, 6999, 1297, 869, 187, 89, 10797, 10853, 10921, 10971, 13297, 10548, 13293, 17793, 20889, 700269, 106977, 108933, 80359, 13697, 10794, 15891, 1009227, 1007619, 1009246, 1008628, 600259, 131996, 70759, 1007377, 1001699, 600279, 141996, 70269, 10677,第10833页、第10911页 (列表图表参考历史文本内部格式)
抵消
0,2
评论
发件人费利克斯·弗罗利奇(Felix Fröhlich)2022年5月28日:(开始)
的变体A015994号不允许回文作为起始值。
最小的非回文k,这样A033665号(k) =n.(结束)
链接
杰森·杜塞特,世界纪录
埃里克·魏斯坦的数学世界,196-算法。
数学
表[SelectFirst[Range[020000],(np=#;i=0;
而[!PalindromeQ[np]&&i<=n,np=np+IntegerReverse[np];
i++];i==n)&],{n,0,32}](*罗伯特·普莱斯2019年10月16日*)
黄体脂酮素
(PARI)
rev(n)={d=数字(n);p=“”;对于(i=1,#d,p=concat(Str(d[i]),p));返回(eval(p))}
nbs(n)=如果(n==rev(n),返回(0));对于(k=1,10^3,i=n+rev(n));如果(rev(i)==i,则返回(k));n=i)\\A033665号
a(n)=对于(k=1,10^8,如果(nbs(k)==n,返回(k))
n=0;而(n<100,打印1(a(n),“,”);n++)\\德里克·奥尔2014年7月28日
(Python)
定义A023109号(n) :
如果n>0:
k=0
为True时:
m=k
对于范围(n)内的i:
如果str(m)==str(m)[::-1]:
打破
m+=整数(字符串(m)[::-1])
其他:
如果str(m)==str(m)[::-1]:
返回k
k+=1
其他:
返回0
#柴华武2015年2月8日
(PARI)revadd(n)=n+eval(concat(Vecrev(Str(n)))
iterationstosmallest回文(n,bound)=my(x=n,i=0,d);while(1,如果(i>绑定,则返回(-1));x=修订(x);i++;d=数字(x);如果(d==Vecrev(d),返回(i))
a(n)=如果(n==0,返回(0));对于(k=1,oo,my(d=数字(k));如果(d!=Vecrev(d),if(iterationstosmallest回文(k,n)==n,return(k)))\\费利克斯·弗罗利奇(Felix Fröhlich)2022年5月28日
交叉参考
囊性纤维变性。A015994号,A033665号,A006960型.
关键词
非n,基础,美好的
作者
扩展
a(41)-a(55)由验证和添加阿尔多·冈萨雷斯-洛伦佐2011年5月15日
状态
经核准的

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

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

最后修改时间:美国东部时间2024年4月19日12:14。包含371792个序列。(在oeis4上运行。)