A046497-OEIS公司

A046497美元

回文可以表示为两个连续回文的总和。

三

1, 3, 5, 7, 9, 11, 33, 55, 77, 99, 121, 212, 232, 252, 272, 292, 393, 414, 434, 454, 474, 494, 595, 616, 636, 656, 676, 696, 797, 818, 838, 858, 878, 898, 999, 2112, 2332, 2552, 2772, 2992, 3993, 4114, 4334, 4554, 4774, 4994, 5995, 6116, 6336, 6556, 6776, 6996, 7997, 8118, 8338, 8558

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

包含所有回文，其中中间的数字是奇数（如果数字的数目是奇数），中间的两个数字是奇数（如果位数是偶数），所有其他数字是偶数；还有回文，其中第一个和最后一个数字是奇数（但不是1），所有其他数字都是9-罗伯特·伊斯雷尔2018年11月12日

链接

罗伯特·伊斯雷尔，n=1..10000时的n，a（n）表

P.De Geest，世界！数字的总数

例子

999 = 494 + 505.

MAPLE公司

ispali:=proc（n）局部L；

五十： =换算（n，基数，10）；

L=列表工具：-反向（L）

结束进程：

digrev:=proc（n）局部L；

五十： =换算（n，基数，10）；

加（L[-i]*10^（i-1），i=1..nops（L））

结束进程：

N： =5；好友：=$0..9：

对于从2到N的d do

q： =p；

如果d:：即使如此

m： =d/2；

帕尔斯：=帕尔斯，seq（n*10^m+digrev（n），n=10^（m-1）。。10平方米-1）；

其他的

m： =（d-1）/2；

帕尔斯：=帕尔斯，seq（seq（n*10^（m+1）+y*10^m+迪格雷夫（n），y=0..9），n=10^（m-1）。。10平方米-1）；

fi（菲涅耳）

日期：

好友：=[好友]：

选择（ispali，Pals[1..-2]+Pals[2..-1]）#罗伯特·伊斯雷尔2018年11月12日

数学

palQ[n]：=反向[x=整数位数[n]]==x；选择[Total/@分区[Select[Range[3500]，palQ]，2，1]，pal Q](*贾扬达·巴苏2013年6月26日*）

nextPalindrome[n_]：=模块[{k=n+1}，While[！PalindromeQ[k]，k++]；k] ；s={}；Do[If[PalindromeQ[n]，sum=n+nextPalindrome[n]；如果[PalindromeQ[sum]，AppendTo[s，sum]]，{n，0，10000}]；秒(*阿米拉姆·埃尔达尔2018年11月10日*）

选择[Total/@Partition[Select[Range[0，5000]，PalindromeQ]，2，1]，PalindromeQ](*哈维·P·戴尔2021年9月24日*）

交叉参考

囊性纤维变性。A002113号.

上下文中的序列：A029950型 A372149型 A061507号*A061512号 A356750型 A083964号

相邻序列：A046494号 A046495美元 A046496美元*A046498号 A046499号 A046500型

关键字

非n,基础

作者

帕特里克·德·格斯特1998年9月15日

扩展

a（1）=1由插入阿洛伊斯·海因茨2018年11月13日

状态

经核准的